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Foreword 

Getting hold of a ZX81 is the first experience many people 
have had with a computer. And even a computer which helps 
the user as much as a ZX81 does, can be bewildering to a first 
time user. 

A computer is not like a stereo record player or a video 
recorder. You can't just turn it on and expect it to do something. 
A computer must be treated like a very stupid child. It must be 
told what to do, in precise terms. It will then follow the 
instructions it has been given exactly. 

But you have to know how to enter those instructions. 

This is where Tim's book can be a great asset. If you turn on 
your ZX81, and enter each program as you come to it, you'll 
have a lot of fun and will — almost without knowing it — end 
up knowing quite a bit about programming. 


MARK CHARLTON 
Author "THE GATEWAY 
GUIDE TO THE ZX81 AND 
ZX80". 


Introduction 

I well remember the day in April, 1980, when my ZX80 arrived 
in the post. I rushed home from work and started entering the 
programs given in the manual. And I was not too impressed. I 
knew nothing about computers at that stage, and only learned 
with a fair degree of difficulty how to program, and what could 
be done with a ZX80. 

By the time Clive Sinclair released the ZX81 in March 1981, I 
had developed some proficiency in programming, and eagerly 
turned to this new, more flexible computer, to see what could be 
done with it. 

And I was not disappointed. The ZX81 is a remarkable piece 
of technology, compressing an awesome amount of computing 
power into a very small space. The range of applications is 
practically infinite, and the programming skill you'll acquire on 
your ZX81 will stand you in good stead no matter which 
computer system you come across in the future. 

I've written this book to help you get started, to help you 
progress rapidly and painlessly from the stage of knowing 
practically nothing about programming — as I did when I began 
— to the point where you'll soon be writing your own games and 
other programs, doubtlessly impressing your family and friends 
in the process. 

And even if you do know a bit about programming, you're 
sure to find things of interest in this book. The more BASIC you 
know, the further you may wish to read before turning your 
ZX81 on. 

Thank you to Colin Hughes, Toni Baker, Trevor Sharpies and 
lan Beardsmore for helping me with the contents of this book. 
Thanks also to members of the National ZX80 and ZX81 Users' 
Club (44-46 Earls Court Road, London, W8 6EJ) who've shown 
such enthusiasm for the ZX81 and friendliness in the months I've 
been associated with the club. 

I sincerely hope this book does, indeed, help you in MAKING 
THE MOST OF YOUR ZX81. 


Tim Hartnell 
London, December 1981 
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ZX 81 Graphics and Symbols 

If you look at the keyboard of your ZX81 you'll notice that some 
of the keys have strange symbols in squares printed on them -the 
numbers 1 to 8 for example, or the keys Q to Y and A to H. These 
are GRAPHICS symbols, and we shall be using these in many of 
the programs in this book. They are obtained by using the 
GRAPHICS key (shift 9) and then pressing the required key with 
SHIFT. 

To save us drawing pretty pictures of squares throughout the 
book we shall simply write what we mean in small letters, so for 
example wherever you see the phrase graphic T we mean the 
graphics symbol on the T key. Graphic 4 will mean the graphics 
symbol on the 4 key, and so on. Notice that the digit 4 was used 
rather than spelling out four in letters. 

When graphics symbols are repeated we shall simply write 
this out in small letters as well, so that five graphic A means the 
graphics symbol adorning the A key is to be repeated five times. 

Another use of the GRAPHICS key is to produce inverse 
characters. We shall usually write the word inverse in small 
letters when these symbols are needed, so that inverse A is a 
white letter A on a black background. Note that this is not the 
same thing as graphic A. The SHIFT symbols such as $ and ? can 
also be inverse - again we will simply write inverse $ or inverse ?. 
Sometimes it will be necessary to produce whole words or 
phrases out of inverse characters. When this happens the 
appropriate letters or symbols will be UNDERLINED, so " ZX81 " 
means the same thing as "inverse Z inverse X inverse 8 inverse 
1 ". 

If we were to write "CAT graphic A DOG " we are talking 
about a string containing the letters C,A and T, the graphics 
symbol on key A, and the inverse letters D,0 and G. There is no 
space between the T and the graphic A, nor between the graphic 
A and the inverse D. If spaces were needed there we would write 
"CAT space graphic A space DOG" Unlike some other books we 
shall not be using an underlined asterisk where we mean space, 
since underlined asterisk^) means inverse asterisk. The word 
space will always be written out in full if a space is needed 
where it is not immediately obvious. 

The "quote-token" symbol on key Q shall be written as shift 
Q. Whenever you see an ordinary ", or the word quote, we are 
referring to the symbol on key P. This cannot be included in the 
middle of a string, ie you cannot write PRINT """, although you 
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CAN write PRINT "shift Q" which will have precisely the same 
effect. Note that PRINT "inverse quote" is the graphics symbol 
on key P, not on key Q. 

Inverse space will generally be written out in full, however 
where it is more convenient we shall just use an UNDERLINE eg 
PRINT THE CA T SAT ON THE MAT " includes inverse spaces 

Finally a brief mention of KEYWORDS. It will generally save 
space in your programs if in PRINT statements you use 
keywords like AND instead of typing out space letter A letter N 
letter D space. We shall indicate this by writing "keyword AND" 
or "keyword AT" etc. Some of the keywords like NEXT can't be 
obtained in a single key. If you see PRINT "keyword NEXT" you 
may obtain the word NEXT by typing shift 3 (THEN). Now press 
NEXT and the word will appear. Delete the word THEN by 
typing shift 5 (cursor left) shift 0 (rubout) shift 8 (cursor right) and 
continue typing in the rest of the line. 


Random Numbers 

Turn on your TV, plug in the ugly black power converter, and 
get the cursor (that s the white K on a black square) down in the 
left hand corner of the screen. Our first program uses one of the 
most useful programming aids for games — the random number 
generator. 

Actually, as the manual points out, it is not a true random 
number generator, but it is close enough for our purposes. 

RND is a random number between 0 and 0.99999999, so to 
generate a random number between zero and, say 10 you just 
input LET J =10*RND. Actually if you think about it this will 
give a number between 0 amd 9.9999999, but we can get round 
that by using the function INT. INT of a number is the largest 
integer not greater than that number, so for positive numbers 
this has the effect of chopping off all the decimal places. If RND 
turned out to be 0.39503486 then 10*RND would be 3 9503486 
and INT (10*RND) would be 3 - all of the decimal places were 
wiped out by the function INT. Now J will be at random either 
0,1,2,3,4,5,6,7,8,or 9. If we wished J to be a random integer 
between one and ten we would have to input LET J = INT 
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(10*RND) +1 If you follow up this line with the command 
PRINT J, your ZX81 will display the number (between 1 and 10) 
which it has generated. Notice that when you write a program, 
each line must be numbered (with numbers between 1 and 9999)! 
The computer executes each line from the lowest number to the 
highest. 

Try this program first: 


10 PRINT "NUMBER 
GENERATOR" 

20 LET J = INT 
(10*RND) + 1 


30 PRINT J (just leave 
a couple of spaces 
between the quote 


marks) 

40 GOTO 20 


When you run this, you'll find the screen fills up after a very 
long delay with numbers, between 1 and 10. The program stops 
when it runs out of memory. 

There are five things you can learn from this program: 

10 PRINT "NUMBER GENERATOR" 

This line starts with a line number (as I mentioned before). You 
can use any number you like (between 1 and 9999), but you'll 
find working in multiples of 10 or 20 will give you enough room 
to add new lines in between others if you need to later. Line 
numbers sort themselves automatically into the correct order. 
When you ran the program, the ZX81 acted on the lowest 
numbered line (in this case 10) and obeyed the instruction PRINT 
and printed what was between the quote marks. Pretty simple, 
basic stuff. So from this line you have learned the use of line 
numbers, and of the command PRINT. 

The next line: 

20 LET J = RND (10*RND) + 1 

This tells the computer to assign the integer value generated to 
the variable J (a letter, a number of letters, or a letter followed 
by a combination of letters and numbers can be a variable). 
Then when, in the next line, you ask the ZX81 to PRINT J, it 
prints the number which has been assigned to J. Don't worry if 
you can't understand this, it will become clear in due course. 
The next line: 

30 PRINT J;" 

This line tells the computer to print the number which it has 
assigned to J. The semi-colon after the J, and after the second 
set of quote marks, ensures that the ZX81 will print the values 
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for J one after another, instead of starting a new line for each 
one. 

Try typing 30 PRINT J, Using the NEWLINE, put this into the 
program in place of the original line 30. Run the program, and 
you'll notice the numbers printed in neat little columns. The 
comma divides the screen up into two parts, and when it reads a 
comma, automatically goes to the start of the next half of the 
screen. (The space between the quote marks in the original 
program ensured there was a space between each number). Try 
running the program without the space, i.e. with line 30 PRINT J; 
you'll find the screen fills up with solid numbers, all running into 
each other. The semi-colon tells the ZX81 to go on and print the 
next J, without leaving a space, and without starting a new line. 

The fourth line of our original program: 

40 GOTO 20 

The computer runs through the program in order, carries out the 
instructions in each line, and then stops. In this case, when it 
gets to the end of the program, line 40 tells it to go back to line 
20. It does so, then runs through the program again, and again 
finds the instructions to go back to line 20. It stops only when 
you run out of screen space. 

Now, you've learned that a letter, such as J, can be assigned a 
numerical value. What is known as a 'string' (a letter followed by 
a $ sign, like A$) can be assigned to a word or words (or any 
combination of letters, symbols and numbers, but we'll stick to 
words for the moment). 

Clear the RAM with the instruction NEW, and input the 
following program: 


10 

PRINT "NUMBER 

60 

PRINT "AND TEN 


GENERATOR" 

70 

PAUSE 100 

20 

PRINT "WHAT IS 

80 

LET J = INT 


YOUR NAME?" 


(10*RND) + 1 

30 

INPUT AS 

90 

PRINT J;" "; 

40 

PRINT "OK,";A$"l AM 
GOING TO WORK OUT 

100 

GOTO 80 

50 

PRINT "SOME 




RANDOM NUMBERS 
BETWEEN ONE 


Try running this program. You'll find the line 20 asks your 
name, and then accepts it in line 30, assigning the string A$ to 
your name. The ZX81 then uses your name (A#) in the next line, 
line 40. 
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The other thing to note about this program is the line 70 which 
tells the ZX81 to PAUSE for a short while before it continues 
with the rest of the program. (Try adjusting the number after the 
word PAUSE to see what happens.)This feature is a very useful 
one in games, and we will be using it time and time again. 

You've probably cursed the fact that your ZX81 doesn't 
automatically'scroll' the contents of the screen upwards. It just 
shuts down when the screen is full, and gives you an error code. 

The clear screen command (CLS) is very useful here. Looking 
at the output of the program you've just run, you have probably 
realised that all the lines spent asking WHAT IS YOUR NAME? 
and so on are wasted once the instruction has been followed. 
Add the line: 75 CLS to the program, and run it again. 

The CLS, you will find, cleared the screen of everything that 
preceded it on the program, but didn't (as will become 
important later) 'forget' what had been assigned to the string, 
AJ. That is the computer still remembers your name (A$), so long 
as you don't wipe the program with NEW or turn off the power, 
or go back into the 'command mode' (when you can see the 
whole program listed on the screen, numbers and all). 

It is a bit butchery to just run the program until it fills the 
screen and jams off, giving you an error message. We can let the 
ZX81 count how many times it goes around the loop (that is, how 
many times it executes the lines 80, 90 and 100). Add the 
following: 

76 LET K = 0 
85 LET K = K + 1 
95 IF K > 30 THEN STOP 

Now run it, you should find the program prints 31 numbers 
between 0 and 10 and then stops. It does this by assigning the 
value of zero to the number variable in line 76, then adds one to 
K each time round (so the first time it is, in effect, LET K = 0 + 

1, the second timeLETK = 1 + 1,thethird time LET K = 2 + 1, 
and so on) until K is bigger than 30, when the computer STOPs. 
This counting and terminating feature is a very useful one. 

IF/THEN: In line 95 (IF K >30 THEN STOP) we used one of the 
ZX81's facilities to make a decision, and act on it. This IF/THEN 
is a very useful statement in BASIC. The form of an IF/THEN line 
is line number, IF something (such as IF Z = 30, or IF A = B) 
followed by THEN (shift 3) and another command. In ZX81 basic 
the other command can be anything (such as GOTO, LET S = 2, 
or STOP). 

Let's get to our first real program. 
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Simple Decision Makers 


Input the following: 

10 PRINT /'DECISION 
MAKER" 

20 PRINT 
30 PRINT 

40 PRINT "THINK OF A 
QUESTION AND" 

50 PRINT "PRESS 
NEWLINE FOR A" 

60 PRINT "DECISION ON 
IT" 


70 INPUT QS 

80 LET J = INT (3*RND) 

90 IF J = 0 THEN PRINT, 

"YES" 

100 IF J = 1 THEN 
PRINT,"NO" 

110 IF J = 2 THEN 
PRINT,"MAYBE" 


Run this program a few times. You'll see how the comma in 
lines 10, 90, 100 and 110 sets the words away from the left hand 
side of the screen, and how lines 20 and 30 (with just the 
command PRINT, with nothing following it) put a space between 
the printout of lines 10 and 40. 

Now comes the creative bit. To dress up this program, you can 
do at least three things: (1) Let the ZX81 ask for, and use your 
name; (2) Use CLS to make the presentation cleaner; and (3) 
Allow you more than one go before the screen flips back into 
the command mode. Try and amend the program (by slipping 
things in between the numbered lines, and/or by changing some 
lines) until you can do these three things — before reading on. 
Cover up the following program until you've had a go at altering 
the original program. 

This is just an example of how to modify the program. There 
are many, many other ways to achieve similar ends. 


10 

PRINT /'DECISION 

60 

PRINT "MAKE A 


MAKER" 


DECISION ON IT" 

20 

PRINT 

70 

INPUT Q$ 

25 

PRINT "WHAT IS 

80 

LET J = INT (3*RND) 


YOUR NAME?" 

90 

IF J = 0 THEN PRINT 

27 

INPUT AS 


"YES" 

30 

CLS 

100 

IF J = 1 THEN PRINT 

40 

PRINT "THINK OF A 


"NO" 


QUESTION,";AS 

110 

IF J = 2 THEN PRINT 

50 

PRINT "PRESS 


"MAYBE" - 


NEWLINE, AND 1 

120 

PRINT 


WILL" 

130 

PRINT "ANOTHER 


GO,";A$;"?" 
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140 INPUT BS 

150 IF BS = "YES" THEN 


160 CLS 

170 PRINT "OK,";AS;",BYE 


GOTO 30 


BYE" 


Note the way the computer is asked to check if BS = "YES" 
(in line 150). If it finds that BS is equal to YES, control goes back 
to line 30. There is no need to put in a line IF BS = "NO" THEN 
GOTO 160 because the ZX81 moves on until it comes to another 
instruction. 

There is another refinement we could add to this program. Try 
and work out how to make the amendment before you read the 
program listing. If you decided you wanted the computer to give 
you two "NO" and two "YES" to every one "MAYBE", how 
would you amend it? Try to work this out (changes will be 
needed between lines 80 and 120) before you read on. 

If you need five alternatives (two NO, two YES, and one 
MAYBE), you will need line 80 to generate five random numbers. 
For two of these the computer must print NO, and so on. To save 
writing IF J = 1 THEN PRINT "YES", and IF J = 2 THEN PRINT 
"YES", and IF J = 3 THEN PRINT "NO" and so on, we can use 
the line IF J < 3 THEN PRINT "YES". 

But what about the "NO" answer? If you write, for line 100, IF 
J < 5 THEN PRINT "NO", the computer will print a YES with a 
NO underneath if the number 3 or 4 is generated. You can 
overcome this with an AND statement, as follows: 

80 LET J = INT (5*RND) 100 IF J > 1 AND J < 4 

90 IF J < 2 THEN PRINT THEN PRINT "NO" 

"YES" 110 IF J = 4 THEN PRINT 


"MAYBE" 


A little later on we'll work out a more sophisticated 
DECISION MAKER program, but for now let's do something a 
little more interesting — play Russian roulette. 
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The principle of the game is simple. You have a pistol with six 
chambers, only one of which contains a bullet. You spin the 
chamber, pull the trigger, and...either bang, or click. Already 
you are thinking "Aha, the random number generator, one in 
six." The only major decision to make is how many shots you are 
going to have before ending the game. Input the following 
program into your ZX81, run it a few times, then come back to 
this book for a discussion on some of the features of it. 


10 PRINT,"RUSSIAN 
ROULETTE" 

20 PRINT,"(C) HARTNELL 
1980" 

30 PRINT 
40 LET J = 0 
50 PRINT "PRESS 

NEWLINE TO FIRE" 

60 INPUT TS 
70 CLS 

80 LET J = J + 1 
90 LET C = RND 


100 IF C < 5/6 THEN PRINT 
"CLICK" 

110 IF G> = 5/6 THEN 
GOTO 140 

120 IF J = 10 THEN GOTO 
160 

130 IF J < 10 THEN GOTO 
50 

140 PRINT "BANG..."; 

150 GOTO 140 
160 PRINT "YOU HAVE 
SURVIVED" 


Notice that in line 90 instead of using INT (6*RND) + 1 we just 
used RND on its own RND if you remember is a random number 
between 0 and 1, so, five times out of six it will be less than 5/6, 
and once out of every six times it should be greater than 5/6. This 
Is how the decision inlines 100 to 110 is made. 
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This program uses the GOTO (in lines 110, 120, 130 and 150) 
command to either give you another 'shot', print BANG... to fill 
the screen, or to print YOU HAVE SURVIVED. Line 40 sets J = 0 
at the beginning, and line 80 adds one to it each time you run 
through until (unless you've shot yourself) you've been through 
ten times, that is when J = 10. Lines 120 and 130 check the value 
of J and either send you back to 50 or advance to 160. Now, add 
the following line to the program and run it a few times: 

95 PRINT,G,J 

This added line displays the number that line 90 has generated 
and, to the right, the number of the run (i.e. J) that you are on. 
After you've run it a few times, erase line 95. Before you read on, 
try to amend the program (just by adding lines between the 
present ones) to allow the program to give you (a) the option not 
to play at all; and (b) the chance for subsequent games if you 
manage to survive. 

30 PRINT "DO YOU 
WANT TO PLAY?" 

32 INPUT AS 
and further down: 

162 PRINT "DO YOU 
WANT ANOTHER 
GO?" 

164 INPUT B$ 

You may well have modified the program differently, but as 
long as it works, it doesn't matter exactly how you do it. 

Now, the following is a very important point for the 
development of games' programs. The best way I've found to 
work out games is to set up the 'core' of the game first (in the 
case of RUSSIAN ROULETTE, the core would be the first version 
of the game). Having set up this core, and made sure it works, I 
then proceed to elaborate the game to make it more fun to play, 
while making sure I don't overload the ZX81's tiny RAM. 

You may have felt that the running of the game in its present 
form is a little unsatisfactory, and that when line 95 was 
included (PRINT,G,J) it was a bit more interesting. So add the 
following line: 

95 PRINT "THAT WAS SHOT ";J 

and run the program. That certainly makes it a bit more 
interesting. Before reading on, I want you to try and write a new 
version of line 95 which will tell how many shots you've left to 


34 IF AS = "NO" THEN 
STOP 


166 IF BS = "YES" THEN 
GOTO 40 
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reach 10 , rather than just telling you the number of the current 
shot. One way of doing it: 

95 PRINT 10 - J;"SHOTS TO GO" 

Now, let us have a second look at line 34. Instead of just 
stopping when the player decides not to play, why not let the 
ZX80 respond more definitely, say by printing the word 
CHICKEN to fill the screen. Try and work out how to do this. For 
a start, you'll have to change the STOP statement in line 34 into 
a GOTO command. 

One way of doing it: 

34 |F A$ = "NO" THEN 180 PRINT "CHICKEN..."; 

GOTO 180 181 GOTO 180 

This version prints a most interesting pattern of the word 
CEJI£KEN. We'll use this pattern-effect to produce a new 
program shortly, but for now, add a few more lines to the 
program so that it uses the player's name. Once you've done 
that, and before you read my version below, try to write in a line 
so the ZX81 won't print ...SHOTS TO GO on the shot which fills 
the screen with BANG... This is my final version of the program: 


10 

PRINT /'RUSSIAN 

80 

LET J = J + 1 


ROULETTE" 

90 

LET G = RND 

20 

PRINT ,"(C) HARTNELL 

95 

PRINT AS;", ";10 - 


1980" 


J;"SHOTS TO GO" 

22 

PRINT 

96 

PRINT 

24., 

PRINT "WHAT IS 

97 

PRINT 


YOUR NAME?" 

100 

IF C < 5/6 THEN PRINT 

26 

INPUT AS 


" Graphic A CLICK 

27 

PRINT 


graphic A" 

28 

PRINT 

105 

PRINT 

30 

PRINT "DO YOU 

110 

IF G> = 5/6 THEN 


WANT TO PLAY, 


GOTO 139 (you'll see 


";A$;"?" 


why 139, rather than 

32 

INPUT BS 


140, by reading 139) 

33 

CLS 

120 

IF J = 10 THEN GOTO 

34 

IF BS = "NO" THEN 


160 


GOTO 180 

130 

IF J < 10 THEN GOTO 

40 

LET J = 0 


50 

50 

PRINT "PRESS 

139 

CLS (this clears the 


NEWLINE TO FIRE" 


screen for the big 

60 

INPUT TS 


BANG) 

70 

CLS 

140 

PRINT "BANG..."; 



150 

GOTO 140 
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160 PRINT “YOU HAVE 
SURVIVED, ";AS 
162 PRINT “DO YOU 
WANT ANOTHER 

GO?" 

164 INPUT CS 

165 CLS 

166 IF CS = “YES" THEN 
GOTO 40 


180 PRINT “CHICKEN..."; (I 
removed the STOP 
statement here so the 
following line, 190, 
could serve for a NO 
response to 162, as well 
as for the NO response 
to 34.) 

190 GOTO 180 


Now, before we leave Russian roulette games, well look at 
one final version that introduces you to a new command, and 
shows a slightly different conversational approach. SAVE your 
final version of RUSSIAN ROULETTE on cassette, then clear the 
memory, and input the following program: 


10 PRINT /'RUSSIAN 
ROULETTE (3)“ 

15 PRINT ,“(C) HARTNELL 
1980“ 

20 PRINT 
25 PRINT "HI GUN- 

TOTER. YOU HAVE" 

30 PRINT "A PISTOL 

WITH ONE BULLET IN 
IT." 

35 PRINT "YOU WILL 
SPIN THE CHAMBER" 
40 PRINT "AND FIRE 10 
TIMES." 

45 PRINT "ARE YOU 
GAME TO PLAY?" 

50 INPUT A$ 

55 LET J = 0 
60 PRINT 

65 IF AS = "NO" THEN 
GOTO 185 
70 PRINT “PRESS 

NEWLINE TO FIRE" 

75 INPUTTS 
80 CLS 
85 PRINT 
90 PRINT 


95 PRINT 
100 LET J = J + 1 
105 LET G = RND 
110 PRINT /'SHOT 
NUMBER ";J 
115 IF G <5/6 THEN 
GOSUB195 

120 IF G>= 5/6 THEN 
GOTO 220 

125 IF J = 10 THEN GOTO 
140 

130 IF J < 10 THEN GOTO 
70 

135 CLS 
140 PRINT 
145 PRINT 
150 PRINT,"YOUVE 
SURVIVED." 

155 PRINT "IF YOU WANT 
TO RISK DEATH 
AGAIN" 

160 PRINT "PRESS G FOR 
GO...OR S FOR STOP" 
165 INPUT BS 
170 CLS 

180 IF BS = "G" THEN 
GOTO 55 
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185 PRINT “COWARD..."; 
190 GOTO 185 
195 LET H = INT 


"EMPTY CHAMBER" 
215 RETURN 
220 PRINT "BANG..."; 
225 GOTO 220 


210 IF H = 2 THEN PRINT 


(2*RND) + 1 

200 IF H = 1 THEN PRINT 


"$ CLICK r (use a 
'graphic T' in place of 
the dollar signs) 

You'll notice as you play this that an empty chamber (i.e. G 6) 
gives you either CLICK or EMPTY CHAMBER, which, as you can 
see, is generated by the lines 195 to 215. The ZX81 leaps to 195 
from 115 on the command GOSUB 195. 

Lines 195 through to 215 make up a "subroutine". Whenever 
the computer comes across a GOSUB command, it goes to the 
line specified, and follows on until it comes to command 
RETURN. The computer then returns to the line after the 
GOSUB command. The GOSUB/RETURN is a very useful 
feature. We'll be using it again. 

You will recall that when you first worked out how to get the 
computer to fill the screen with the word CHICKEN that it made 
quite an attractive pattern. We are going to look now at a 
slightly more developed form of pattern-making program, which 
uses the FOR/NEXT loop to limit the number of times the 
sequence of letters or spaces is repeated. We will be looking at 
the FOR/NEXT in detail a little later. 
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Pattern 

Makers 


The core of this program is simple. Feed it into your ZX81 and 
after pressing RUN, input any six of the graphical symbols, then 
press NEWLINE. 

10 INPUT AS 30 PRINT A$; 

20 FOR J = 1 TO 75 40 NEXT J 

You can run this program, which is surprisingly effective, 
using any combination of letters, numbers and symbols you like. 
You'll find that one or two spaces, instead of letters, enhance 
the pattern produced. Try a few more patterns, using spaces, 
letters like M and W, the S sign and the numbers 6 and 9. 

Before reading on to see how I have done it, try to write 
around the core program you have to include the following 
features: (a) a title; (b) instructions; and (c) the chance to form 
another pattern without having to go back into the command 
mode and press RUN again. Cover up my version until you've 
tried your own. 

One way (and there is an infinite number of ways you could 
have done it) is as follows: 

1 PRINT /'PATTERNS" 10 

2 PRINT , "(C) HARTNELL 15 

1980" 20 

3 PRINT 30 

6 PRINT "PRESS ANY 40 

COMBINATION OF 6" 50 

7 PRINT "LETTERS, 

SYMBOLS AND 60 

SPACES..." 

8 PRINT 

9 PRINT "...AND I WILL 70 

PRINT A PATTERN" 75 


INPUT AS 
CLS 

FOR J = 1 TO 75 
PRINT AS; 

NEXT J 

PRINT "twenty four 
spaces" 

PRINT "DO YOU 
WANT ANOTHER 
CO?" 

INPUT BS 
CLS 
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80 IF B$ = "YES" THEN 90 PRINT "OK. SEE 

GOTO 6 YOU LATER, ARTIST" 

This is quite an addictive program. The simplest combination 
of symbols (like three of graphic 6, two of graphic 5 and a space) 
produce almost three-dimensional patterns. If you set this 
program up for one of your friends to try, be ready to wait a 
long, long time before you next have a go. 


Building a Library 

I hope you've been SAVEing the programs you create as you 
go along. There is little point in having to input the whole 
program by hand every time you want to run it. 

Resist the temptation to put all your programs on one 
cassette, one program after another. The frustration you'll 
experience searching through the tape (even if you've identified 
each program with a voice label) to find a particular program is 
just not worth the trouble. Go to your computer shop, or buy by 
mail from one of the many companies that advertise in the 
personal computing magazines, and get a set of C-12 cassettes. 
Put just one program on each cassette, with two copies of each 
program on each side, just in case something happens to one of 
the copies and you find it difficult, or impossible, to LOAD. 

Write the name of the program on the cassette, and on the 
cardboard insert. You'll find this makes it very easy to find the 
program you want, and as your library builds, it will give you 
quite a feeling of accomplishment to see all those programs 
ranked side by side. It will impress your friends as well, who will 
believe after visiting you, and playing with your ZX81, that 
you're some kind of natural computer genius (which you 
probably are). 


Review 


Let's review the ground we've covered so far; 


— The use of the random 
number generator LET J 
RND or LET J = INT 
(10*RND) + 1 


The output statement 
PRINT 


The assignment statement 
LET 
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The use of , and ; in PRINT — 
statements 

The PAUSE statement 

The control statement 

IF..THEN... _ 

The use of strings (AS), 

including the use of a 

string to stop a program 

until NEWLINE is pressed — 

The statement CLS 

The symbols < >,<= and 

>= _ 

The statement AND 

The control statement 

STOP 

The control statement 
FOR...TO/NEXT 


The form and use of a 
"counter" to limit the 
number of times part of a 
program is run through 
How to develop a game 
program from the core of 
it, to make it more 
elaborate and interesting 
Subroutines (with the 
commands GOSUB and 
RETURN) 

How the string, 

FOR...TO.../NEXT, and 
PRINT can be used to 
generate patterns. 


sure you 
going on. 


We've come quite a long way in a short time. Make 
understand all the preceding material before 


For/Next 

You'll remember when we wrote the first PATTERN-MAKER 
program, we used (in line 20) FOR J = 1 TO 75, and (in line 40) 
NEXT J. We will now have a look at the use of FOR/NEXT loops 
in some detail. 

First, input the following program: 

10 LET J = 0 40 LET J = J + 1 

20 PRINT "J = " J 50 GOTO 20 

30 IF J = 10 THEN STOP 

Run it a few times, then clear the RAM and input the 
following program, which uses the FOR/NEXT loop- 
10 FOR J = 1 TO 10 
20 PRINT "J = ",J 
30 NEXT J 

You can see that running this program produces exactly the 
same result as running the preceding one, although this second 
program is only three lines long, two shorter than the first 
program. It is not always possible or desirable to use a 
FOR/NEXT loop as a "counter", but because it uses less memory 
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than the LET J = 0/LET J = J + 1 approach, it should always be 
investigated. 

When you run a program with a FOR/NEXT loop, the 
from line to line after the FOR statement until it finds the NEXT 
command, when it reverts to the FOR line. You can place one (or 
more) FOR/NEXT loops inside another. Add the following lines 
to the current program: 

22 FOR K = 2 TO 6 STEP 2 
25 PRINT "K = ";K 
27 NEXT K 

Run this. Notice what happens to K - it runs 2,4,6. This is the 
effect of putting STEP 2 after FOR K = 2 TO 6. K is incremented 
by 2 each time round the loop instead of just by one.lt is 
important to make sure that each loop nests neatly within each 
other loop. That is, if you placed the NEXT K command after the 
NEXT J, so the loops cross, you get a rather unsatisfactory result. 
Try it, by renumbering line 27 as line 35 (making sure you delete 
the "old" line 27). 

Finally, here is a remarkably effective double FOR/NEXT loop 
program. 


5 

PRINT "YOUR NAME 

30 

FOR S = 1 TO 99 


IN LIGHTS" 

40 

PRINT "graphic T", 

10 

FOR J = 1 TO 6 

50 

NEXT S 

20 

PRINT /'(put your first 

60 

NEXT J 


name here)"; 


This is a good program to run for your more egocentric 
friends. 
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Flipping 
a Coin 



The computer can be used to simulate a huge variety of 
things, from the growth of plants to the effects of bumps on the 
road on motorcycle suspension. We are going to look at a more 
homely example of simulation: flipping a coin. 

Input the following program, and run it: 

10 PRINT /'COIN FLIP — 40 IF J< = .5 THEN 

1 " PRINT "TAILS" 

20 LET J = RND 
30 IF J > .5 THEN PRINT 
"HEADS" 

Once you ve run this a few times, amend the program as 
follows: 

10 PRINT , "COIN FLIP — 

2 " 

20 LET J = RND 
30 IF J> .5 THEN PRINT 
"HEADS" 

40 IF J<= .5 THEN PRINT 
"TAILS" 

You'll need to use the function key (shift newline) to get the 
word INKEY^ in line 70. You might think that after using PAUSE 
100 and then played around with the number 100 you'd have a 
pretty good idea of what PAUSE was all about. So what's this 
PAUSE 40000? It seems an awfully long time to wait for. In 
actual fact PAUSE will alw.ays stop working as soon as you press 
a key - any key will do. When this happens the program will just 
carry on as normal, and this is where INKEYS comes in. INKEYS 
(or"ln Key") will tell the computer which key you've got your 
finger on. If you're not pressing any key, or you're pressing two 
keys at once, INKEYS will equal the empty string " ", If you're 


50 PRINT "TO FLIP 
AGAIN PRESS F" 

60 PAUSE 40000 
70 IF INKEYS = "F" THEN 
GOTO 20 
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pressing the A key then INKEYS will equal "A". If you're pressing 
the F key then INKEYS will equal "F". You can even make 
INKEYS = “keyword STOP" by pressing SHIFT and A at the 
same time! IF INKEYS = “F“ means IF you're pressing key F. You 
could have used an INPUT statement instead - see if you can 
work out how to do this. 

You can run this until the screen is full. Although there will 
probably be an imbalance in the numbers of HEADS and TAILS, 
the longer you run the program, the more the ratio of each 
should approach 1:1. If we knew how many times we had flipped 
the coin, it would make it easier to work out how many HEADS 
and how many TAILS the program had printed. It is fairly simple 
to amend the program to do this. Try it yourself, before looking 
at my version. 


10 

PRINT "COIN FLIP - 

60 

IF J< = .5 THEN 

3" 


PRINT "TAILS" 

20 

LET K = 1 

70 

LET K = K + 1 

30 

LET J = RND 

80 

PRINT "TO FLIP 

40 

PRINT "FLIP NUMBER 


AGAIN PRESS F" 

";K;“ IS 

90 

PAUSE 40000 

50 

IF J> .5 THEN PRINT 

100 

IF INKEY$= "F" THEN 


"HEADS" 


GOTO 30 


Once you've run this a few times, and added up the HEADS 
and TAILS, and then worked out what the ratio of HEADS to 
TAILS is, you will probably have realised the ZX81 can do all the 
work — flip the coin, count the heads and tails, and then 
manipulate this result as you choose. Let's try a more complex 
program: 


10 PRINT /'COIN FLIP - 
4" 

20 LET H = 0 
30 LET T = 0 
40 LET K = 1 
50 LET J = RND 
60 PRINT,“FLIP 

NUMBER ";K;“ IS 
70 IF J> .5 THEN PRINT 
"HEADS" 

80 IF J< = .5 THEN 
PRINT "TAILS" 

90 IF J> .5 = 1 THEN LET 
H = H + 1 


100 IF J<= .5 THEN LET T 
= T + 1 

110 PRINT "OUT OF 
";K;" FLIPS YOU 
HAVE" 

120 PRINT H; "HEADS 
AND ";T;" TAILS" 

130 PRINT "THIS IS A 
RATIO OF";H/T 
140 LET K = K + 1 
150 PRINT "PRESS F TO 
FLIP AGAIN" 

160 PAUSE 40000 
170 CLS 
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180 IF INKEY$= "F" THEN 
GOTO 50 


190 PRINT “THANKS FOR 
PLAYING. BYE" 

200 STOP 


You will find that adding PRINT statements for lines 105, 106 
and 107 will make the program, when running, easier to read. 
Now, we could use a FOR/NEXT loop to tell the ZX81 in advance 
how many times we wanted to flip the coin, and then we could 
leave it to do the work. For practice, I'd like you to produce such 
a program, which also asks the player at the beginning how 
many times he or she wishes to flip the coin. I am not going to 
give you a sample version of this because I think by now you 
should be able to write such a program easily. What I am going 
to give you though is another version of the program, that gives 
percentage breakdowns of heads and tails. First write your 
program using the FOR/NEXT loop, SAVE it, and then have a 


look at my final COIN FLIP program. 


10 

PRINT ,"FLIP-A-COIN" 

120 

PRINT "OUT OF "; 

15 

PRINT "(C) HARTNELL 


K;" FLIPS YOU HAVE" 


1980“ 

130 

PRINT B;" PER CENT 

20 

LET H = 0 


TAILS" 

30 

LET T = 0 

140 

PRINT "AND ";A;“ PER 

40 

LET K = 1 


CENT HEADS" 

50 

LET J = RND 

142 

PRINT 

55 

PRINT 

147 

PRINT 

57 

PRINT 

150 

PRINT /'PRESS F TO 

60 

PRINT "FLIP 


FLIP AGAIN" 


NUMBER ";K;" IS 

155 

LET K = K + 1 

70 

IF J> .5 THEN PRINT 

160 

PAUSE 40000 


"HEADS" 

170 

CLS 

80 

IF J<= .5 THEN PRINT 

175 

IF INKEY$= "F" THEN 


"TAILS" 


GOTO 50 

90 

IF J> .5 THEN LET H = 

180 

IF K = 2 THEN GOTO 


H + 1 


195 

100 

IF J<= .5 THEN LET T 

181 

PRINT 


= T + 1 

182 

PRINT 

105 

PRINT 

185 

PRINT "YOU FLIPPED 

106 

PRINT 


THE COIN K — 1 ; 

107 

PRINT 


" TIMES:-" 

110 

IF K = 1 THEN GOTO 

186 

PRINT 


150 

187 

PRINT,“HAD ";A;“ PER 

111 

LET A = 100*H/K 


CENT HEADS" 

112 

LET B = 100*T/K 

188 

PRINT 
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189 PRINT /'AND ";B;" PER 
CENT TAILS'' 


193 PRINT 

194 PRINT 


190 PRINT 

191 PRINT 

192 PRINT 


195 PRINT "THANKS FOR 
PLAYING. BYE" 

200 STOP 


There are a few points you can learn from examining this 
program. Up to line 100, there is nothing new. Line 110 (IFK = 1 
THEN GOTO 150) bypasses all the percentage computation, 
because there is no need for it if you have only flipped once. 
Lines 111 and 112 multiply the ratio of heads and tails by the 
total number of flips by 100. 

Line 180 (IF K = 2 THEN GOTO 195) is used if the player 
decides to stop after two flips. The information given by lines 
185 to 189 is only of interest if the coin has been tossed three or 
more times. Line 195 is just a friendly way of ending. Many 
times, when you write a program, you'll use nearly all the RAM 
just for the program, so you will not have room for niceties like 
goodbyes. However, whenever you have room in the memory, it 
is a good idea to make the program more "user-friendly" and 
make the ZX81 "conversation" as natural as possible. 


Decision Maker — Mark 11 


One of the first programs we developed was a simple decision 
maker. Let us look now at the more complex program to make 
decisions. This program will show how strings can be used by the 
ZX81 to form complete sentences, and will also demonstrate a 
memory-saving way of using the random number generator. 
Input the following program: 


10 PRINT "DECISION 


26 PRINT "REACH A 
DECISION" 

27 PRINT 

28 PRINT "JUST 


MAKER - 2" 

11 PRINT "(C) HARTNELL 


1980" 

12 PRINT 

15 PRINT "HI, WHAT IS 


COMPLETE THE 
FOLLOWING" 


YOUR NAME?" 

20 INPUT AS 
22 CLS 

25 PRINT A$;", I AM 


29 PRINT "SENTENCE 


(WITHOUT USING 
THE" 


HERE TO HELP YOU" 
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I 


30 PRINT "WORDS I, ME 
OR MINE)" 

31 PRINT "COMPLETE 
THIS: SHOULD I..." 

32 INPUT B$ 

33 CLS 

35 LET J = INT 
(4*RND) +1 

36 GOTO 100*J (this is the 
memory-saving trick) 

100 PRINT "IF I WERE 

YOU, ";A$; ", I WOULD 
NOT"B$ 

105 GOTO 600 

200 PRINT "SURE, ";A$; 

", ";B$ 

205 GOTO 600 

300 PRINT "YOU MUST BE 
CRAZY, ";AS;", TO 
THINK YOU MIGHT 
";BS 


305 GOTO 600 
400 PRINT "GEE, ";AS;", 
ITS A TOSSUP 
WHETHER YOU ";B$;" 
OR NOT" 

405 GOTO 600 
600 PRINT 
610 PRINT 

620 PRINT "ANOTHER 
DECISION, ";A 
630 INPUT C$ 

640 CLS 

650 IF CS = "YES" THEN 
GOTO 27 

660 PRINT "THANKS FOR 
LETTING ME" 

670 PRINT "HELP YOU, 
";A$ 

680 STOP 



Number 

Crunching 


The programs we've worked on so far have ignored the great, 
and fundamental ability the ZX81 has to work with numbers. 
Input this program into your computer: 


10 PRINT "MATHS 

DEMONSTRATION" 


15 PRINT "GIVE ME A 
NUMBER" 
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20 INPUT A 
25 PRINT "A SECOND 
NUMBER, PLEASE" 
30 INPUT B 
35 PRINT "AND ONE 
MORE" 


40 INPUT C 
45 LET K = A*B/C 


50 PRINT A;" MULTIPLIED 


BY ";B;", DIVIDED BY" 
55 PRINT C;" EQUALS ";K 


Run this through a few times, with different values for A, B 
and C. Notice how, in lines 50 and 55, when using PRINT, the 
ZX81 substitutes the values assigned to A, B and C. It prints the 
number rather than the letter. 

Now, change lines 45, 50 and 55 as follows: 

45 LET K = (A + 50 PRINT K 


C)/(B + C — A) 


55 STOP 


Run this a few times and see what happens. 

We can use a program of this type to do practically any maths 
problem, no matter how complex. The ZX81 can handle any 
numbers up to 1.7014118E38, and negative numbers down to 
—1.7014118E38. The E is a rather special symbol used by the 
ZX81 and it means "move the decimal point". E38 then means 
"with the decimal point moved 38 places to the right" so the 
biggest number the ZX81 can use in actually 
170141180000000000000000000000000000000, which is much larger 
than most of us will ever need. The ZX81 can just as easily 
handle functions like SINes, COSines and so on. 

We'll use the basic mathematical ability of the ZX81 to 
produce a rather interesting demonstration program you can run 
next time you have a couple of friends around. 


10 PRINT "NUMBER 


125 PAUSE 40000 
130 CLS 

135 PRINT A$; "SUBTRACT 

CC\/CM" 


JUGGLE" 

30 PRINT "NAME OF 


PLAYER?" 

40 INPUT A$ 

65 CLS 

70 PRINT AS;", THINK OF 


SEVEN" 

140 PRINT "AND TYPE IN 


THE RESULT" 

145 INPUT A 
150 CLS 

175 LET K = (A + 2)12 
185 PRINT "YOUR 


A NUMBER AND" 

75 PRINT "DOUBLE IT" 
95 PAUSE 40000 
100 CLS 

120 PRINT AS;", ADD 


NUMBER, "; 
AS,", WAS ";K 


FIVE" 
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Now that did not, perhaps, seem very startling, although it is 
fairly impressive the first time you try it on someone. Note how 
the PAUSE 40000 was used twice to stop the program until you 
pressed any key, how CLS was used to clear the screen after 
each instruction, and how the final line (185) used the name 
string,(A$) and the assigned variable (K) to print out your answer. 

Before you read on, work out a way of letting the program 
give you the chance to have another go. Type your version in at 
the end of the program, and see if it works. One way would be as 
follows: 

200 PRINT "ANOTHER 215 IF Z$ = "YES" THEN 

GO?" GOTO 65 

205 INPUT ZS 230 STOP 

Once you've run through this program a few more times, 
you're probably pretty bored with it. Remember that a computer 
can, within the limits of its memory, store a great deal more 
information than just one simple mathematical manipulation. 
This game program becomes a great deal more interesting when 
you interweave a second set of instructions into the first, so a 
second player can "think of a number" and so on, at the same 
time as the first person is doing so. I'll list the whole program. 
Apart from a word to be added to line 30, and some possible 
differences in the lines 200 and beyond (the lines that offered 
you a second run), you should be able to add the lines from the 
following program in between those you already have in the 
ZX81's memory. 


10 

PRINT "NUMBER 

75 

PRINT "DOUBLE IT" 


JUGGLE" 

80 

PRINT 

20 

PRINT ,"(C) HARTNELL 

85 

PRINT BS;", THINK OF 


1980" 


A NUMBER AS WELL" 

25 

PRINT 

90 

PRINT "AND ADD SIX 

30 

PRINT "NAME OF 


TO IT" 


FIRST PLAYER?" 

95 

PAUSE 40000 

40 

INPUT AS 

100 

CLS 

45 

PRINT 

105 

PRINT BS;", 1 WANT 

50 

PRINT "NAME OF 


YOU TO MULTIPLY 


SECOND PLAYER?" 


YOUR" 

60 

INPUT BS 

110 

PRINT "NUMBER BY 

65 

CLS 


THREE" 

70 

PRINT AS;", THINK OF 

115 

PRINT 


A NUMBER AND" 

120 

PRINT AS;", ADD 

FIVE" 
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125 

PAUSE 40000 

185 

PRINT "YOUR 

130 

CLS 


NUMBER, ";AS; 

135 

PRINT A$;", SUBTRACT 


", WAS ";K 


SEVEN" 

190 

PRINT 

140 

PRINT "AND TYPE IN 

195 

PRINT "AND 


THE RESULT" 


YOURS, 

145 

INPUT A 


B$;", WAS ";L 

150 

CLS 

200 

PRINT /'ANOTHER 

155 

PRINT B$;“, 1 WANT 


GO?" 


YOU TO SUBTRACT" 

205 

INPUT Z$ 

160 

PRINT "FOUR THEN 

210 

CLS 


TYPE IN YOUR 

215 

IF Z$ = "YES" THEN 


RESULT" 


GOTO 65 

165 

INPUT B 

220 

PRINT "OK, ";A$;" 

170 

CLS 


AND BS;", THANKS" 

175 

LET K = (A + 2)12 

225 

PRINT "FOR PLAYING. 

180 

LET L = «B + 4)/3) - 


BYE BYE." 


6 

230 

STOP 


Try this out with a couple of friends, and watch their reaction. 

I want to introduce you now to a little trick which can add a 
lot to games programs (even though it will probably horrify 
computer purists). The ZX81 works very, very quickly. So 
quickly, in fact, that its responses appear to be instantaneous. 
Although this is fine for “serious" use of a computer, it detracts 
in some measure from games. You'll find that games are more 
interesting if the computer appears to be “thinking" between 
moves, rather than responding as soon as you hit NEWLINE. So, 
we can introduce a PAUSE subroutine which will slow things 
down a bit. 

Add the following: 

240 PAUSE 150 260 RETURN 

250 CLS 

Now, go through the program, and change all the lines except 
250 which have the instruction CLS to GOSUB 240. Now, run the 
program again. Notice how much more effective this seems, 
with just the right delay for the computer to "think and reach a 
decision". You could have other numbers in line 240. Try it as 
PAUSE 400. You'll find this delay is far too long. So long that 
you'll get irritated. Using 200 also produces too long a delay. To 
me, 150 seems about right. You can use the subroutine delay in 
any games you like. As an exercise, try adding it to an earlier 
program, like RUSSIAN ROULETTE, and seeing if this adds to 
the playing of the game. 


page 25 





The general form of a “game delay": 

Line Number PAUSE n 

Line Number CLS 

Line Number RETURN (if the delay is a subroutine). 

As a general rule, you can insert a delay subroutine whenever 
you would normally use the CLS instruction. When you're 
feeding in a program that is likely to come pretty close to using 
all the ZX81 s RAM, do not input the delay subroutine until 
you've got the rest of the program in. Use a CLS line instead, and 
if and when you find there is enough memory left for a delay 
subroutine, put that in. 


Writing a Program — 

Some General Thoughts 

Most books on programming suggest you start by drawing up 
a “flowchart" — a pretty combination of circles, diamonds and 
slanting rectangles — which sets out the path and operations 
the computer will follow to execute a program. In theory, this is 
fine. But in practice, especially when working with a relatively 
small memory such as in the ZX81, the time and trouble 
involved is probably not worth it. 

It is, however, essential to know exactly what you want the 
computer to do before you start creating a new program, even if 
you're not quite sure how you are going to get the ZX81 to carry 
out the task. 

Sometimes a rough sort of flowchart — just writing down the 
main steps the ZX81 will take and then linking these by lines and 
loops — will help to clarify your thinking. This is also a good 
way of spotting potential problems, like the danger of setting up 
infinite loops, or of not specifying the nature of the computer's 
decisions exactly. 

For what it's worth, I work as follows: 

Having worked out the general idea for a game (like "player 
thinks of an animal, computer tries to guess which animal") I 
then just think about the idea for a while. I might not write 
anything down for even a day or more. Usually, this "thinking 
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time" allows me to work out roughly how the core of the 
program is going to look. Next, on paper, I write down this core, 
starting with line number 100- This ensures there is plenty of 
room at the start of the program to add a title and instructions, 
define constants, set up arrays and the like. 

The next stage is to feed the rough program into the ZX81 and 
see if it does what it is meant to do. Often a far more elegant 
method than the first rough version is found at the keyboard, 
but this would probably not have been discovered if the written 
version was not tried first. 

Occasionally, if I get a clear idea for a program and I cannot 
get to the ZX81, I will write out the entire program by hand in 
advance. Sometimes (like the race game LONDON TO 
GLASGOW), a program works almost perfectly the first time. 
Other programs turned out to be near disasters, so the final 
version bears little more resemblance than title and intention to 
the original, hand-written version. If you're working on a fairly 
simple game, or are adapting from a magazine or book, it is just 
as well to work directly on the ZX81, but keep a notebook handy 
to record things like the fact that, for example, string AS is for 
the player's name. 

If you're writing a program direct on the keyboard, and you 
want to add a subroutine which will eventually be at the end of 
the rest of the program, give it a very big number (like 5000). It 
can easily be renumbered afterwards (and the GOSUB 
command changed). This is simpler, and more elegant, as well as 
using less memory, than having to use a GOTO to jump over a 
subroutine which has been given too low a line number. 

If there is a phrase that you'll need the computer to print at 
several parts of the program, such as "THE SCORE AT THIS 
POINT IS", assign a string to this phrase as soon as you realise 
you're going to have to place the line in several different places 
in the program. A lot less memory is involved in the line PRINT 
BS appearing six times, than in six of PRINT "THE SCORE AT 
THIS POINT IS". If the information to be included several times 
is longer than one line, a subroutine is probably the most 
memory-efficient device to use. Later on this book 
looks at a program which makes use of a large number of strings 
for phrases which are used over and over again (LONDON TO 
GLASGOW) and when you come to the game, you'll see how 
efficient a process this can be. 
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Extra-Sensory 
Perception 


The next program we will look at uses the ZX81's "greater 
than" and "less than" facilities to compare two numbers, and 
then make a decision on the basis of whether one number is less 
than, or greater than, the other. This program also makes use of 
many of the things we've covered so far, including the 
IF ...THEN, the counter and the random number generator. 

Input the following program: 


10 

PRINT "GUESS MY 
NUMBER" 

95 

IF S = 5 THEN GOTO 
130 

45 

PRINT "WHAT 

NUMBER, BETWEEN 0 
AND 99, AM 1 

105 

PRINT "YOU ARE 
RIGHT. 1 WAS 
THINKING OF "J 

50 

THINKING OF?" 

110 

GOTO 140 

LET J = INT (100*RND) 

130 

PRINT "TIME IS UP. 1 

55 

LET S = 0 


WAS THINKING OF ";) 
PRINT "DO YOU 

60 

LET S = S + 1 

140 

65 

INPUT A 


WANT ANOTHER 

70 

PRINT, A 


GO?" 

75 

IF A = J THEN GOTO 

145 

INPUT H$ 

80 

105 

150 

CLS 

IF A < J THEN PRINT 
"HIGHER" 

155 

IF HS = "YES" THEN 
GOTO 45 

85 

90 

IF A > J THEN PRINT 
"LOWER" 

IF S < 5 THEN GOTO 

60 

160 

STOP 


Notice how the core of the program (lines 50 to 95) make the 
decision on what the ZX81 is to do next. 

This program, in its present form, has only used up a part of 
the ZX81 s memory. It is possible to dress the program up a bit, 
by giving the computer your name, and — as you'll see — giving 
it the ability to award the player a random payoff if the number 
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is guessed correctly. Try this new form. Some of the original 
program remains, but certain lines have to be replaced, and 
others added. 


10 PRINT “GUESS MY 
NUMBER" 

15 PRINT "(C) HARTNELL 
1980" 

20 PRINT 
25 PRINT 

30 PRINT "HI, WHAT IS 
YOUR NAME?" 

35 INPUT AS 
40 CLS 

45 PRINT "WHAT 

NUMBER, BETWEEN 0 
AND 99, AM I 
THINKING OF, ";A 
50 LET J = INT(100*RND) 
55 LET S = 0 
60 LET S = S + 1 
65 INPUT A 
70 PRINT ,A 

75 IF A = J THEN GOTO 
100 (note change from 
105) 

80 IF A < J THEN PRINT 
"HIGHER" 

85 IF A > J THEN PRINT 
"LOWER" 

90 IF S < 5 THEN GOTO 
60 

95 IF S = 5 THEN GOTO 
130 


100 LET K = INT (3*RND) 
105 PRINT "YES, I WAS 
THINKING OF I 
HEREBY AWARD YOU 
THE TITLE OF"; 

110 IF K .= 0 THEN PRINT 
" SMART ALEC OF THE 
YEAR, ";A$ 

115 IF K = 1 THEN PRINT 
" MASTER OF ESP, 

";A$ 

120 IF K = 2 THEN PRINT 
"JERK OF THE 
KEYBOARD, ";AS 
125 GOTO 140 
130 PRINT "YOU ARE 

STUPID, ";A$;". I WAS" 
135 PRINT /'THINKING OF 
";J 

140 PRINT 
145 PRINT "DO YOU 
WANT ANOTHER 
GO?" 

150 INPUT NS 
155 CLS 

160 IF NS = "YES" THEN 
GOTO 45 

165 PRINT "THANKS FOR 
PLAYING, ";AS 
170 STOP 


When you run this program, you'll find the lines 105 to 120 
wrap around to the following line when printing. This is not a 
good feature. As an exercise, try and rewrite this section so the 
lines print separately, so you do not run the risk of having a word 
cut in half, with one half on one line, and the next on the other. 
(Hint: you'll need to use commas in your PRINT line). 
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It is possible to use a very similar core to produce what 
appears to be a completely different program. Input the 
following: 


10 PRINT "CHOPPER - 
(C) HARTNELL 1980" 

20 PRINT 
30 PRINT 

40 PRINT "A DEADLY 
CHOPPER IS HIDING" 
45 PRINT "BEHIND 1 OF 
16 TREES" 

50 PRINT 
55 PRINT 

60 PRINT "YOU HAVE 
ONLY 6 SHOTS. OK?" 
65 INPUT AS 
70 CLS 
75 LET G = 0 
80 LET J = INT 
(16*RND) + 1 
85 PRINT, "0 0" 

90 PRINT, "two inverse 
space, graphic 7, two 
inverse space" 

95 PRINT,"graphic 5, 

space, graphic 7, space, 
graphic 5" 

100 PRINT, "graphic 5, 

three spaces, graphic 5" 


105 PRINT, "graphic 5 five 
times)" 

110 PRINT, "(space, inverse 
space, space, inverse 
space" 

115 PRINT 
120 PRINT 

125 PRINT "GUESS THE 
NUMBER OF THE 
TREE" 

130 PRINT 

135 PRINT ."YOU WANT 
TO SHOOT AT" 

140 LET G = G + 1 
145 INPUT M 
150 CLS 

155 IF M = J THEN GOTO 
220 

160 IF G = 6 THEN GOTO 
195 

165 PRINT "YOU MISSED, 
";6 - G;" TO GO" 

170 PRINT 
175 PRINT 

180 IF M < J THEN PRINT 
"TRY TO THE RIGHT" 
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185 IF M > J THEN PRINT 


230 PRINT"(three spaces, 


"TRY TO THE LEFT" 
190 IF C < 6 THEN GOTO 


two inverse space, 
seven spaces, graphic 4, 


85 

195 PRINT 


"AAAAAAAARGHH 
200 PRINT 
205 PRINT 
210 PRINT "HE WAS 


space, graphic 4)" 

235 PRINT 
240 PRINT 
245 PRINT 

250 PRINT "PRESS C FOR 

a matu c d r-r\” 


ANOTHER GO" 
260 PAUSE 40000 
265 IF INKEYS = "C" 


BEHIND TREE 


NUMBER ";) 

215 STOP 

220 PRINT "GOT HIM" 
225 PRINT " 0 0(after the 


THEN GOTO 70 
270 CLS 

275 PRINT "CHICKEN" 


two zeros, space, two 
inverse space, space, 
graphic E, space, 
graphic 5)" 

The idiotic appearance of the "chopper" was chosen at 
random. (It was named after my dog.) Make up your own name 
and appearance for your beastie (making sure its "dead" version 
looks vaguely like a deflated version of the live creature). You 
can also alter the value of J (the number of trees) and/or G (the 
number of shots you get before being killed). 

This framework can also be used for, say, vultures hiding in 
nests, poisonous snakes in holes, or even unfriendly aliens in 
space, lurking behind asteroids. The "conversation" parts of the 
program can also be altered to what ever form you choose. 

We can in fact shorten this program considerably by using the 
AT function. Delete all of the PRINT statements from the 
program and instead input the following lines. 


10 PRINT "CHOPPER - (C) HARTNELL 1980"; 

AT 3,0;"A DEADLY CHOPPER IS HIDING", 
"BEHIND 1 OF 16 TREES"; 

AT 7,0; "YOU HAVE ONLY 6 SHOTS. OK?" 

85 PRINT ,"00",,"two inverse space graphic S two 
inverse space",/'graphic 5 space graphic 7 
space graphic 5"„"five graphic 5",/'space 
inverse space space inverse space" 

165 PRINT "YOU MISSED.";6-G;"TO CO'/AT 2,0 
180 IF M<J THEN PRINT "TRY TO THE RIGHT" 
185 IF M>J THEN PRINT "TRY TO THE LEFT" 

195 PRINT "AAAAAAAAARGHH.";AT 5,0;"HE 

WAS HIDING BEHIND TREE NUMBER";J 
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220 PRINT "GOT HIM";AT 12,17/'00 space,two 
inverse space, space, graphic 5 , space, 
graphic 5",/'three space, two inverse space, 
seven space, graphic 4, space, graphic 4";AT 
17,0/TRESS G FOR ANOTHER GO" 

275 PRINT /'CHICKEN" 

You'll find the program runs exactly as before, except that it's 
considerably shorter. AT X,Y in the middle of a PRINT statement 
will move the PRINT position to line X, column Y. If the AT 
function is followed by a semi-colon it will stay there and wait 
for the next item to PRINT. See how in line 165 the AT function 
is at the end of the statement so that the next PRINT will start 
there. Note also the double commas in lines 85 and 220. This 
lines the PRINT position up to the middle of the screen. 

A little gimmick you can add to this (and any other program 
you like, assuming you have enough memory for it) is to get the 
program to ask the player's name. You work out a subroutine 
which ensures the computer will only play with you (or with 
people fortunate enough the share your name). If any other 
name is fed in when the ZX81 asks who is playing, it STOPS. As 
an exercise, work out such a subroutine and add it to your 
version of CHOPPER. 



Days of 
Our Lives 


Let's go back now to number-crunching, and have a look at a 
program which gives interesting (and sometimes scary or absurd) 
information on how long the player has to live. A little later on 
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in this book is a program designed to give a proper look at life 
expectancy, but that program is a little more complicated. For 
now, this program — DAYS OF OUR LIVES — produces a pretty 
good demonstration of your ZX81, and the less mathematical of 
your friends will be convinced, yet again, that you are some kind 
of genius. 

What the program does, in essence, is work out approximately 
how old the player is in days, and compares this with average 
life expectancy (67V2 years for males, 74V2 for females). It also 
assumes the player sleeps eight hours a night. Input the 
following program and run through it a few times. Then read the 
discussion that follows the program listing. 


10 PRINT “DAYS OF OUR 
LIVES" 

15 PRINT "(C) HARTNELL 
1980“ 

20 PRINT 

25 PRINT “HI, WHAT IS 
YOUR NAME?" 

30 INPUT AS 
35 CLS 

40 PRINT “OK, ";A$;“, 
LETS WORK OUT 
SOME" 

45 PRINT "INTERESTING 
THINGS ABOUT YOU" 
50 PAUSE 150 
55 CLS 

60 PRINT “HOW OLD 
ARE YOU IN YEARS?" 
65 INPUT A 
70 PRINT “AND 
MONTHS?" 

75 INPUT B 
80 LET X = 30.002* 

(A*12 + B) 

85 CLS 

90 PRINT “YOU ARE 
";INT X;“ DAYS OLD, 
"AS 

95 INPUT CS 
100 PRINT "ARE YOU 
FEMALE?" 


105 INPUT DS 
110 CLS 

115 IF DS = "YES" THEN 
GOTO 130 

120 LET Y = 24637 - X 
125 GOTO 135 
130 LET Y = 27192 - X 
135 PRINT AS;", YOU 

HAVE ";INT Y;“ DAYS 
TO LIVE - BASED ON 
STATISTICS" 

140 PAUSE 150 
145 CLS 

150 PRINT "YOU HAVE 
SLEPT FOR 
ABOUT";INT (X/3) 

155 PRINT "DAYS SO 
FAR" 

160 PAUSE 150 
165 CLS 

170 PRINT "AND WILL 
SLEEP FOR 
ABOUT ";INT (Y/21) 

175 PRINT “WEEKS OF 
YOUR REMAINING 
LIFE" 

180 PAUSE 150 
185 CLS 

190 PRINT “IS THERE 

ANYONE ELSE THERE 
WHO" 
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195 PRINT "WOULD LIKE 


210 IF H$ = "YES" THEN 


A GO, ";A$;"?" 
200 INPUT H$ 


GOTO 25 

215 PRINT "OK BYE, ";A£ 


If you were thinking about what you were feeding into the 
ZX81, you probably have a pretty good idea of what each line 
and command was for, but, if not, look at it on your screen and 
follow through this next section, line by line with your program. 

First of all, of course, the program got your name (A$), then 
PAUSED at line 50 for a few seconds (and clear the screen at 
line 55). This stopping of the program, as you learned earlier, 
does not do anything, but makes the program much more 
interesting to run than supplying all the information at once. 

The program obtained your age in years (A) and months (B), 
then worked out what this was in days (line 80, which assumed 
there were 30 days in a month). Next the ZX81, in line 90, told 
you what this figure was (X). The question in line 100 — ARE 
YOU FEMALE? — is needed because males and females have 
different life expectancies. If D$ (the answer to the line 100 
question) is YES, the computer goes to line 130, where it 
subtracts your age in days from the life expectancy ( 74’/2 years, 
converted to days) for females born after 1961 (it is only half a 
year less for females born 1951 -1960). If the answer is not YES, 
the computer moves to the next line (120) and subtracts your age 
in days from 24,637 days, the life expectancy for males born 
after 1960 (again, it is half a year less for males born 
1951 -1960). 

Line 135 prints how many days after are left. Lines 150 and 155 
give the number of days slept so far (your age in days, divided by 
three), assuming you sleep eight hours a night. Then the ZX81 
takes your remaining expected days (Y), divides this figure by 
three (to get the days spent in sleep) and then divides this by 
seven to convert this figure to weeks. Actually, as you can see, 
the program simply divides by 21 (i.e. 3 x 7). 

Lines 190to 210ask if someone else wants a go, and if so, goes 
right back to line 25, where the string A$ is ready to be assigned 
to the new name. If there is no-one else to play the ZX81 
proceeds to the end of the program. 

If you feel like experimenting, there is no reason to stick with 
the program as I've written it. Let it ask, for example, if the 
player is male (changes lines 100 to 130). Instead of the 
somewhat unimaginative farewell (line 215) you might wish to 
put in some mournful line like: WELL, AS, I GUESS YOU'D 
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BETTER RUN OFF AND MAKE THE MOST OF THE Y/30 
MONTHS YOU HAVE LEFT TO LIVE. 

You could also, of course, add a delay subroutine where CLS 
appears in the program (lines 35, 55, 85, 110, 145, 165, 185 and 
205). By all means experiment with the program, and put your 
own personal stamp on it. By doing this, you'll gain far more 
knowledge about programming than you will just by feeding in 
the programs in this book, line for line, and then leaving them 
this way. 

If you'd like to work out a whole new program based on the 
core of this program, feed the following program into your 
ZX81, and then work around it as you choose. 

10 PRINT "HOW OLD 140 PRINT "HAVE ABOUT 


ARE YOU IN YEARS?" 
20 INPUT A 
30 PRINT , "AND 

k/tr'lMTLJC?" 


";INT Y;" DAYS TO 
LIVE," 


MONTHS?" 

40 INPUT B 

50 LET X = 365.25*(A + 


150 PRINT "BASED ON 
STATISTICS" 


12*B) 

60 PRINT "ARE YOU 


160 PRINT "YOU HAVE 
SLEPT FOR ABOUT 
";INT (X/3) 


FEMALE?" 

70 INPUT AS 
80 CLS 

90 IF AS = "YES" THEN 


170 PRINT "DAYS SO FAR, 
AND WILL SLEEP" 


180 PRINT "FOR ABOUT 
";INT (Y/2);" WEEKS 
OF" 


GOTO 120 

100 LET Y = 24637 - X 
110 GOTO 130 
120 LET Y = 27192 - X 
130 PRINT "YOU ARE";INT 


190 PRINT "YOUR 

REMAINING LIFE" 


200 STOP 


X;"DAYS OLD AND" 
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Toying with 
the Muse 



To make a change from working with numbers, here is a 
program that — after a fashion — writes poetry. Most of the 
poems it comes up with are pretty awful, but from time to time 
you'll get a real gem. And even the worst efforts of the ZX81 are 
not as bad as some of the worst modern poetry published today. 

The heart of this program is our old friend the random number 
generator. It also makes use of the memory-saving device of 
linking the number generated to a subroutine. Input the program 
as it appears below, and run it several times. Then read the notes 
that follow the listing. (Note that there is a space just inside the 
quote marks in the “seed-phrase" lines following the command 
PRINT.) 


1 PRINT , “SEASIDE 
POETRY" 

2 PRINT , “(C) HARTNELL 
1980" 

3 PRINT 

4 PRINT 

5 PRINT "PRESS 
NEWLINE TO WRITE A 
POEM" 

6 INPUT AS 

7 CLS 

10 LET J = INT (21 *RND) 

15 IF J = 0 THEN PRINT 

// //. 

20 IF J > = 1 AND J < = 

3 THEN COSUB 1000 
30 IF J > = 4 THEN 
COSUB 10 + J *10 
40 GOTO 10 
50 PRINT " SUN"; 
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55 

RETURN 

60 

PRINT " SAND"; 

65 

RETURN 

70 

PRINT " SEAGULLS", 

75 

RETURN 

80 

PRINT " WAVES"; 

85 

RETURN 

90 

PRINT “ ROCKS"; 

95 

RETURN 

100 

PRINT " SEAWEED"; 

105 

RETURN 

110 

PRINT " HOT"; 

115 

RETURN 

120 

PRINT " GRITTY"; 

125 

RETURN 

130 

PRINT "BEATING, 
BEATING"; 

135 

RETURN 

140 

PRINT " HARSH"; 

145 

RETURN 







150 PRINT " HOURS 
PASSING"; 

155 RETURN 
160 PRINT " ECHOED 
OVER"; 

165 RETURN 
170 PRINT " BRIGHTLY 
DREW"; 

175 RETURN 
180 PRINT " DREAMILY 
EASED"; 

185 RETURN 


190 PRINT " SHADOWED 
OVER"; 

195 RETURN 
200 PRINT " FAINTLY 
WHISPERED"; 

205 RETURN 

210 PRINT " YET AGAIN"; 
215 RETURN 

1000 PRINT 

1001 PRINT 

1002 PRINT 

1003 RETURN 


When you run this, you'll be quite pleased (or at least I was 
when I first wrote it) to find out how often, just by chance, quite 
attractive poems (!) are written by the program. Note the high 
number of RETURN commands. You'll remember that after 
going to a subroutine (GOSUB), the program executes the 
subroutine, then at the command RETURN, goes back to the line 
after the instruction to go to the subroutine. In this program, the 
line after the GOSUB instruction is 40, which instructs the 
computer to go further back, to line 10, to generate another 
random number. The decisions on where to place the 
semicolons (;), which tell the computer to print the next words 
on the same line, were made partly by running the program, and 
just seeing how the words fell, and also by the general decision 
that half the nouns (such as SUN, SAND and SEAGULLS) would 
end a sentence, that is, would not be followed by a semicolon. I 
also decided that adjectives (as in lines 120 and 140) would 
always allow for a word to follow them, and that about half the 
other "seeds" (lines 150 to 210) would do the same. 

By looking at the program listing you'll see the lines 15, 20and 
30 make certain decisions, based on the random number 
generated. Line 15 ensures that, just under 5% of the time, “ 
will be printed. Line 20 prints three blank lines (GOSUB 1000) just 
under 15% of the time, and line 30directs the hardworking ZX81 
to print one of the "seeds" just over 80% of the time. These 
proportions were worked out by running the program over and 
over again, adjusting the lines 15, 20 and 30 until — the majority 
of the time — a pleasant poem layout resulted. Probably you've 
realised that the program runs until the screen is full (which 
gives a fairly good poem length). If you wanted to limit the 
number of lines in the poem to less than full screen length, you 
could place a counter (or a FOR...NEXT) at the return target for 
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the GOSUB at line 30 (i.e. at line 40). The kind of poem the 
program writes depends, as you can see, almost entirely on the 
words placed in the PRINT lines. The best way to decide on the 
words to go in the PRINT statements is to pick one topic, and 
then make every word and phrase relate to this topic. 

The original POETRY program was written when I was on 
holiday, and after producing about 20 SEASIDE POEMS, I 
decide to input some words and phrases about the city where 
the program was written. The changes in the program produced 
some remarkably effective poems (plus a generous crop of 
duds). If you want to see how it works, change the following 
lines using the EDIT facility, making sure you put a space just 
inside the quote marks. 


1 

PRINT , " SALZBURG 

130 

PRINT " MEMORIES IN 


POETRY" 


STONE"; 

50 

PRINT " CHURCHES"; 

140 

PRINT " STEADFAST"; 

60 

PRINT " BAROQUE 

150 

PRINT " TRADITIONS 


TOWERS"; 


RELIVED"; 

70 

PRINT " MOUNTAIN 

160 

PRINT " ECHOED"; 

VISTAS"; 

170 

PRINT " COPPER 

80 

PRINT " MUSIC BY 


DOMES"; 

MOZART"; 

180 

PRINT " DREAMING" 

90 

PRINT " FORTRESS"; 

190 

PRINT " SHADOWED 

100 

PRINT " COBBLED 


OVER"; 


STREETS"; 

200 

PRINT " FAINTLY 

110 

PRINT " TIMELESS"; 


WHISPERED" 

120 

PRINT " BELOVED"; 

210 

PRINT " YET AGAIN" 


Try writing a program, using words and phrases based on the 
last place you spent a holiday in, or pick a topic like "clouds", 
"kittens" or "vintage cars"...and see what you, the ZX81 and the 
Muse can create. Here is one poem written from a set of words 
and phrases about London. 

...TOURISTS CROWD ALWAYS MOVING 

RUSHING, PUSHING I HAVE SEEN IT 
BIG BEN CHIMES, AND RIVER THAMES 
CATHEDRAL SPIRES 

ALL BUT FORGOTTEN RUSHING, PUSHING 
PIGEONS IN TRAFALGAR SQUARE 

I HAVE SEEN IT 

AT LAST, SUN. RIVER THAMES 

TIMELESS 
I HAVE SEEN IT 
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Not very brilliant, I guess, but acceptable. The "seeds" for this 
poem are: 


1 

PRINT ,"POEMS OF 
LONDON TOWN" 

140 

PRINT " RIVER 
THAMES"; 

50 

PRINT " BOBBIES,"; 

150 

PRINT " BIG BEN 

60 

PRINT " TOURISTS 


CHIMES, AND"; 


CROWD"; 

160 

PRINT " RUSHING, 

70 

PRINT " PIGEONS IN 


PUSHING"; 


TRAFALGAR SQUARE" 

170 

PRINT " ALWAYS 

80 

PRINT " CHAOS" 


MOVING," 

90 

PRINT " AT LAST, 

SUN."; 

180 

PRINT " CATHEDRAL 
SPIRES" 

100 

PRINT " STREETS OF 

// # 

... , 

190 

PRINT " GREY RAIN 
FALLS ON..."; 

110 

PRINT " TIMELESS" 

200 

PRINT " 1 HAVE SEEN 

120 

PRINT " ALL BUT 


IT" 


FORGOTTEN"; 

210 

PRINT " MANY 

130 

PRINT " MEMORIES 


TIMES"; 


OF MAJESTY," 


Notice how, in this program, link words like AND and ON 
finish some lines. 

Flere is another poem, from yet another set of words: 
GRAVEYARDS ABOMINATIONS RELIVED 
DARK, DARK SHRINKING WITCHES CACKLE 
ECHOED CHILL OF ODDNESS CHANCES LOST 

SHRINKING CALLING, CALLING, GRAVEYARDS 
ECHOED CALLING, CALLING 
DEATH IS NEAR, SAY WITCHES CACKLE 
TURN AND REACH FOR 

DARK, DARK WITCHES CACKLE 
SKELETONS RATTLE 
GRAVEYARDS 

The "seeds" are as follows: 


1 

PRINT ,"BLACK 

SABBATH POETRY" 

80 

PRINT " WITCHES 
CACKLE"; 

50 

PRINT " 

GRAVEYARDS"; 

90 

PRINT " HOPE NOW 
DEAD"; 

60 

PRINT " SKELETONS 
RATTLE" 

100 

PRINT " CHANCES 
LOST"; 

70 

PRINT " CHILL OF 

110 

PRINT " TIMELESS" 


ODDNESS"; 

120 

PRINT " DARK, 
DARK"; 
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130 PRINT " MEMORIES 
OF PAIN,"; 

140 PRINT " SHRINKING"; 
150 PRINT " 

ABOMINATIONS 

RELIVED"; 

160 PRINT " ECHOED"; 
170 PRINT " CALLING, 
CALLING,"; 


180 PRINT " DEATH IS 
NEAR, SAY"; 

190 PRINT " SCREAMS 
ARE"; 

200 PRINT " TURN AND 
REACH FOR"; 

210 PRINT "AGAIN, 
AGAIN" 



There are many games, with names like HUNT THE HURKLE 
or BURIED TREASURE or DEPTH-CHARGE, which are based on 
trying to guess the location of one or more points on a grid. Each 
location is specified by quoting the co-ordinates of the point. To 
start our investigation of these games, input the following 
program, which sets up a very simple game of this type (you can 
leave out lines 10, 60, 70, 80 and 90 if you want to save time). 


10 

PRINT "HUNT GAME" 

50 

PRINT " YOU HAVE 10 

20 

LET X = 


GUESSES TO FIND IT" 


INT(10*RND) + 1 

60 

PRINT "INPUT YOUR 

30 

LET Y = 


GUESS, PRESSING 


INT(10*RND) + 1 


NEWLINE" 

40 

PRINT "A ZX81 IS 

70 

PRINT "AFTER EACH 


HIDDEN ON A 10x 10 


DIGIT. TWO DIGITS 


GRID" 


ARE" 
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80 PRINT "NEEDED, THE 
FIRST ONE YOU 
INPUT" 

90 PRINT "MUST BE FOR 
THE HORIZONTAL CO¬ 
ORDINATE" 

100 FOR J = 1 TO 10 
110 PRINT "FIRST 
NUMBER?" 

120 INPUT A 
130 PRINT A; 

140 PRINT " SECOND 
NUMBER?" 

145 INPUT B 
150 PRINT B 


160 IF A = X AND B = Y 
THEN GOTO 240 
170 IFAOXOR BOY 
THEN PRINT "TRY 
AGAIN" 

180 PAUSE 40000 
190 CLS 
200 NEXT J 
210 PRINT "END OF 
GAME" 

220 PRINT "ZX81 WAS 
HIDDEN AT ";X,Y 
230 STOP 

240 PRINT "YOU HAVE 
FOUND IT" 


Once you've played this a few times, you'll realise that you're 
really "shooting in the dark" when trying to guess the ZX81's 
location, and there is no feedback as to how close you are. 

You can add the following lines to give you an idea of how 
you're going: 

162 IF A = X AND BOY 164 IF A <> X AND B = Y 
THEN PRINT A;" IS THEN PRINT A;" IS 

RIGHT,";B;" IS NOT" WRONG,";B; " IS 

RIGHT" 

Add these lines, and run the program a few times. You can 
then add another line to give the player more information: 

166 IF J = 6 THEN PRINT 
"CLUE: NUMBERS 
ADDED = ";X + Y 

Of course, many other features can be added. Here's a 
version of the hunt game which allows the player to select the 
size of the grid, and gives clues in terms of direction. 


10 PRINT "HUNT THE 
SPIDER"„"(C) 

HARTNELL 1980". 

20 PRINT "IN THIS GAME 
A SPIDER WILL 
WEAVEA WEB AND 
HIDE ON 

IT",,,, "HEIGHT OF 
WEB-"; 


30 

INPUT X 


40 

PRINT X, 

AND 


WIDTH-' 


50 

INPUT Y 


60 

CLS 


70 

LET A = 
+ 1 

INT (X*RND) 

80 

LET B = 
+ 1 

INT (Y*RND) 
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90 FOR J = 1 TO 5 
100 PRINT “THE SPIDER IS 
HIDING ON A",X;" BY 
";Y;" WEB.",/'WHERE 

IS IT?". 

“NORTH/SOUTH? 

space"; 

110 INPUT C 
120 PRINT C;" AND 
EAST/WEST?" 

130 INPUT D 
140 CLS 

150 IF C = A AND D = B 
THEN GOTO 300 
160 PRINT "GUESS 

NUMBER WAS 
";C;" ";D;" AND WAS", 
"WRONG. TRY TO 
THE"; 

170 IF C < A THEN PRINT 
"NORTH space"; 

180 IF C > A THEN PRINT 
"SOUTH space"; 


190 IF D < B THEN PRINT 
"EAST" 

200 IF D > B THEN PRINT 
"WEST" 

210 PRINT 
220 PRINT 
230 NEXT J 
240 PRINT "GAME 

OVER",/'SPIDER WAS 
AT ";A;" ";B, 
"ANOTHER GAME?" 
250 INPUT AS 
260 CLS 

270 IF AS = "YES" THEN 
GOTO 20 

280 PRINT "THANKS FOR 
PLAYING" 

290 STOP 

300 PRINT "YOU FOUND 
THE SPIDER IN ";J;" 
TRIES" 
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Slot/Fruit 

Machines 


Once you've paid for your ZX81, bought some software (and 
this book) and possibly invested in some additional memory, 
your wallet may be getting a little light. Here's a program which 
you can use to get a little money out of your richer friends. 

The random number generator (of course) can easily be used 
to simulate a slot machine, or fruit machine, game. A very 
simple program of this type, with two "fruits" could be as 
follows: 


10 PRINT "SLOT 
MACHINE" 

20 LET C = 5 
30 LET A = 0 
.40 FOR J = 1 TO 2 
50 LET D = RND 
60 IF D >5 THEN GOTO 
100 

70 LET A = A + 1 
80 PRINT "ORANGE", 

90 GOTO 110 

100 PRINT "CHERRY", 

110 NEXT J 

120 IF A < > 1 THEN LET 
C = C + 2 

130 IF A = 1 THEN LET 

C = C - 1 


140 IF C = 0 THEN GOTO 
210 

150 IF C > 10 THEN GOTO 
230 ' 

160 PRINT "YOU NOW 
HAVE £";C 

170 PRINT "PRESS ANY 
KEY FOR NEXT GO" 
180 PAUSE 40000 
190 CLS 
200 GOTO 30 
210 PRINT "YOU HAVE 
BUSTED" 

220 STOP 

230 PRINT "YOU HAVE 
BROKEN THE BANK" 


Input this program and run it a few times. It works as follows: 
Line 20 sets the counter for ORANGEs (A) at 0, and line 30 sets 
the CHERRY counter (B) at 0. Your money is C, and line 20 sets it 
at £5 to begin the game. 
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Each play of the game requires two random numbers to be 
generated. These are counted by line 50 (and 130) and generated 
by line 60. If the random number is 2, program control moves to 
line 110 where CHERRY is printed. Control then goes back to line 
50. If the random number is 1, A becomes A + 1, and the 
computer prints ORANGE before going back to line 50 for the 
next number. 

After two numbers have been generated, and the "fruits" 
printed out, the computer checks to see if both are the same (if 
they are, A will equal 2 or 0) and if so, adds two to your money 
(that is, lets C = C + 2). If the fruits are not the same, the 
computer takes £1 off you (that is, lets C = C - 1). Can you see 
how the computer knows the two fruits were different? 

Next, it prints out your stake (line 160). The computer checks 
this amount. If it is less than £1, control goes to line 230 to print 
YOU HAVE BUSTED. If it is greater than 10 control moves to 
line 250 where the computer prints YOU HAVE BROKEN THE 
BANK. If neither of these conditions are true, the computer acts 
on the next line (190) which instructs you to press NEWLINE for 
the next go. 

That may seem a little complicated spelt out in detail, but you 
should be able to follow it through on the program. Once you're 
sure you understand the workings of this program, write your 
own version with three fruits, and thus make it more like a "real" 
slot machine. You'll have to add some lines between others in 
my program to do this, and change a few lines completely. I'm 
not going to give you a program for a "three fruits" machine as 
you will benefit far more from working out your own program to 
simulate the working of such a machine. And it is far more fun 
playing a game with a program you've written yourself, than just 
feeding in someone else's work. 

Once you've written and played with the three fruits version, 
read on to see one way of writing a four fruits slot machine (but 
with pretty odd fruit). Note that in this program, different 
winning combinations are worth different amounts, and 
generate comments. 


10 

PRINT /'SLOT 

40 

INPUT M 


MACHINE" 

50 

CLS 

20 

PRINT ,"(C) HARTNELL 

60 

LET C = 0 


1980" 

70 

LET D = C 

30 

PRINT AT 

80 

LET E = C 


6,©/'STARTING STAKE 

90 

LET F = C 


(£ < 20)" 

100 

FOR J = 1 TO 4 
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110 LET B = INT (4*RND) 
120 IF B = 0 THEN GOTO 
180 

130 IF B = 1 THEN GOTO 
210 

140 IF B = 2 THEN GOTO 
240 

150 LET C = C + 1 
160 PRINT "UNCLE" 

170 GOTO 260 
180 LET D = D + 1 
190 PRINT,"CLIVES" 

200 GOTO 260 
210 LET E = E + 1 
220 PRINT,"MAGIC" 

230 GOTO 260 
240 LET F = F + 1 
250 PRINT,"ZX81" 

260 NEXT J 

270 IF C = 1 AND D = 1 
AND E = 1 AND F = 1 
THEN GOTO 320 
280 IF C = 4 OR D = 4 OR 
E =4 OR F = 4 THEN 
GOTO 320 

290 IF C = 3 OR D = 3 OR 
E = 3 OR F = 3 THEN 
GOTO 350 

300 LET M = M - 2 
310 GOTO 370 
320 LET M = M + 10 
330 PRINT,"graphic A 

inverse space JACKPOT 
inverse space graphic 
A" 


340 GOTO 370 
350 LET M = M + 2 
360 PRINT /'graphic Y 
THREE OF A KIND 
graphic 1 " 

370 IF M < 1 THEN GOTO 
430 

380 IF M > 49 THEN GOTO 
5 00 

390 PRINT ."YOU NOW 

HAVE £";M,,,,"PRESS 
ANY KEY FOR NEXT 
SPIN" 

400 PAUSE 40000 
410 CLS 
420 GOTO 60 
430 PRINT "END OF 
CAME. YOU ARE 
BROKE" 

440 PRINT "ANOTHER 
GAME?" 

450 INPUT BS 
460 IF BS = "YES" THEN 
GOTO 30 
470 CLS 

480 PRINT "OK. BYE BYE" 
490 STOP 

500 PRINT "YOU HAVE 

£";M; 

"AND 

HAVE","BROKEN THE 
BANK" 

510 GOTO 440 




Lost in 
Space 


We'll return now to the HUNTING ON A GRID idea, and work 
on finding objects which are located on more than two axes, 
that is, are hidden in three- (or even four-) dimensional space. 
Imagine our spider is hiding inside a cube, each side of which is 
X units long. Each point in the cube can be specified by giving 
three co-ordinates: height, width and depth. Before reading on 
to see how I've done it, try to work out a program in which a 
space capsule is lost inside a cube of space, with each side of 
the cube four kilometres long. 


10 

PRINT TAB 7;"LOST IN 




SPACE" 

110 

INPUT F 

20 

PRINT 

120 

CLS 

30 

PRINT "YOU HAVE 15 

130 

PRINT ,D,E,F 


HOURS TO 

140 

IF A = D AND B = E 


FIND","CAPSULE LOST 


AND C = F THEN 


IN","A 7KM CUBE OF 


GOTO 270 


SPACE" 

150 

PRINT /'(graphic A) 

40 

LET A = INT 


WRONG (graphic 


(7*RND + 1) 


A)"„„"HOURS OF AIR 

50 

LET B = INT 


LEFT - ";15 - 


(7*RND + 1) 


J,„"MOVE "; 

60 

LET C = INT 

160 

IF A > D THEN PRINT 


(7*RND +1) 


"UP 

70 

FOR J = 1 TO 15 

170 

IF A < D THEN PRINT 

80 

PRINT„"INPUT 3 


"DOWN 


SEARCH CO¬ 

180 

IF NOT B = E THEN 


ORDINATES" 


PRINT "ACROSS "; 

90 

INPUT D 

190 

IF C > F THEN PRINT 

100 

INPUT E 


"FORWARDS" 
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200 IF C < F THEN PRINT 
"BACKWARDS" 


260 GOTO 280 

270 PRINT,,"YOU FOUND 


210 PRINT 


THEM WITH"„16-J; 


220 IF J = 14 THEN PRINT 
"DANGER - DEATH 
IMMINENT" 


"HOURS OF AIR LEFT" 
280 PRINT„"ANOTHER 


MISSION?" 

290 INPUT H$ 

300 CLS 

310 IF HS = "YES" THEN 


230 NEXT J 
240 CLS 


250 PRINT,, "FAIL - 

ASTRONAUTS DEAD" 


GOTO 30 


/'CAPSULE WAS AT " 320 PRINT /'FAREWELL, 



BRAVE CAPTAIN" 


Arrays 


Arrays, and the use of the DIM (dimension) statement, puzzle 
many newcomers to BASIC. The DIM statement is used if you 
want to set up a list with a 'name' (the name is a letter like A, B 
or whatever). For example, you might want the numbers 1 to 15 
in the list named A, in the form LET A(1) = 1, LET A (2) = 2 and 
so on to LET A(15) = 15. To tell the ZX81 you need an array to 
hold these elements (1, 2 and so on to 15) input: 

10 DIM A(15) 

The figure in brackets is number of items or elements you 
want in the list. The first element is A(1), not A(0). You can have a 
much bigger array if you like, provided you don't exceed the 
memory. In ZX81 BASIC you can also have what are called 
"multidimentional" arrays, which means you can have more 
than one number inside the brackets. For example you might 
want a table of size, say, five by six, called A. To set this up type 
DIM A(5,6). You can now have elements called A(1,1), A(1,2), and 
so on. The first number cant be bigger than five, and the second 
number can't be bigger than six. A(3,4) is not the same thing as 
A(4,3), and if you have a two dimensional array then you can't 
refer to A(3) for instance - you must always keep to two 
numbers. Similarly you could have a three dimensional array by 
typing DIM A(4,4,4). The numbers inside the brackets are known 
as SUBSCRIPTS, and an element of the form K(9) or F(2,3) is 
called a subscripted variable. 
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Here's a program to show the DIM statement: 


10 

DIM A(10) 

40 

PRINT "A(";J 

20 

FOR J = 1 TO 10 

50 

NEXT J 

30 

LET A(J) = 2*J 




When you run this, you will get: 
A(1) = 2...and so on to... 
A(10) = 20 


Change line 10 to DIM A(5) and run the program again. This 
time you'll get just A(1) = 2...to...A(5) = 10. The program 
stopped at this point (giving the error code 3/30, meaning that 
the subscripted variable required, i.e. J = 6 to J =10 was out of 
range). Change line 10 now to DIM A(20) and run the program. 
You'll find you get exactly the same result as having DIM (A10). 
As I said before, you change nothing, in practice, by having a 
larger array than you actually want. Now add the following 
lines: 

10 DIM A(10) 

60 PAUSE 40000 80 LET A(A) = 3*A 

65 CLS 90 PRINT "A(";A;") = 

70 FORA = 1 TO 15 ";A(A) 

100 NEXT A 

When you run this, you find the same A(0) = 0 through to 
A(10) = 20 after which the ZX81 will wait for you to press a key. 
The ZX81 will then display: 

A(1) = 3 ...down to...A(10) = 30 

The error code 3/80 will be displayed, because the demand 
made on the array by line 80 was greater than the array defined 
by line 10 (that is, line 70 made the next A equal 11, and line 80 
therefore wanted a subscripted variable called A(11) which, of 
course, it could not find because the array only had room for 11 
elements). 

You can also have STRING arrays, but these are slightly 
different. For a start, if you already have a string called AS then 
you can't dimension a string array to be called AS- Another thing 
to watch for is that all of the elements of a string array have to 
be the same length, so to set up a string array AS with five 
elements you don't just say DIM AS(5) — You have to say DIM 
AS(5,the number of characters in each element). Run this 
program and see what happens. 

10 DIM AS(6,6) 30 PRINT "AS(";A;") = "; 

20 FOR A = 1 TO 6 40 INPUT AS(A) 
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60 NEXT A 


50 PRINT "shift Q"; 

AS(A);"shift Q" 

Try inputting strings that are not six characters long. You'll 
notice that those longer than six characters are chopped off 
after the sixth place, and those shorter are filled with spaces 
where necessary. Here is a program to show the DIM statement 
in use. 

Now follows a very simple HUNT THE HURKLE program 
using the DIM statement Input the program, run it a few times, 
then read through to find out how it works. 


10 

PRINT "DIM SPIDER 

20 

DIM A(4) 


30 

DIM B(4) 


50 

FOR G = 

1 TO 4 

60 

LET A(C) 

= 2 

70 

LET B(G) 

= 2 

80 

NEXT G 


90 

LET K = 

INT 


(4*RND) + 1 

100 

LET L = 

INT 


(4*RND) + 1 

110 

LET A(K) 

= 1 

120 

LET B(L) 

= 1 

130 

FOR D = 

1 TO 5 

140 

PRINT "WHERE IS 


SPIDER, TRY 


NUMBER 

";D 


150 INPUT T 
160 INPUT Y 
170 IF A(T) = 1 AND B(Y) 
= 1 THEN PRINT 
"YOU FOUND IT" 

180 IF A(T) = 1 AND B(Y) 
= 1 THEN STOP 
190 NEXT D 

200 PRINT "SORRY, TIME 
IS UP" 

210 PRINT "SPIDER WAS 
AT";K,L 
220 STOP 


Having run this program a few times, and examined the 
listing, you are probably asking yourself what was achieved by 
using the DIM statements which could not have been achieved 
without them. The answer is: Nothing. However, the DIM comes 
into its own when you want to hide more than one object on a 
grid, without creating a whole set of co-ordinates of the type 
LET A = INT (4*RND) + 1, LET B = INT (4*RND) + 1, LET C = 
INT (4*RND) + 1 and so on, to put the first hidden object at A,B; 
the second at C,D; and so on. 

Before we look at this, here are two more programs which 
hide a single object. 

5 PRINT "DIMMER 20 DIM B(2) 

SPIDER" 30 FOR C = 1 TO 2 

10 DIM A(2) 
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40 

LET A(C) = INT 

160 

IF J = 5 THEN GOSUB 


(4*RND) +1 


260 

50 

NEXT C 

170 

NEXT J 

60 

FOR J = 1 TO 7 

180 

PRINT "TIME IS UP. 

70 

PRINT "WHERE IS THE 


SPIDER WAS AT ";A(1); 


SPIDER - 


" ";A(2) 


ATTEMPT ";) 

190 

GOTO 205 

80 

FOR C = 1 TO 2 

200 

PRINT " YOU HAVE 

90 

INPUT B(C) 


FOUND IT" 

100 

NEXT C 

210 

STOP 

110 

PRINT B(1)," B(2); 

220 

PRINT A(1); " IS 

120 

IF A(1) = B(1) AND 


RIGHT" 


A(2) = B(2) THEN 

230 

GOTO 170 


GOTO 200 

240 

PRINT A(2); " IS 

130 

IF A(1) = B(1) AND 


RIGHT" 


A(2) < > B(2) THEN 

250 

GOTO 170 


GOTO 220 

260 

PRINT "HINT: 

140 

IF A(1) < > B(D AND 


LOCATIONS ADD UP 


A(2) <> B(2) THEN 


TO ";A(1) + A(2) 


GOTO 240 

265 

PAUSE 200 

150 

PRINT " NO" 

270 

RETURN 


If you like, you can change line 160 to read: 

160 IF J = 3 OR J = 7 THEN COSUB 260 

This just reinforces the same hint when J = 7 as when J = 3. 
If you want the 'hint' to come at random, you could change 
line 160 to: 

160 IF J = 2*A(1) THEN COSUB 260 
or to: 

160 IF J = 2*A(2) THEN COSUB 260 

Another version of this line, suggested by Ian Rodgers, is: 

160 IF 7*RND < J THEN COSUB 260 

This final version is probably the best, because it means that 
the closer to J = 7 you get, the more likely you are to be given a 
hint. 

The core of the program DIMMER SPIDER can be used to 
produce a far more interesting game, and in this program we will 
introduce a new ZX81 function. 


5 

PRINT "PESKY PIKSY" 

20 

DIM A(2) 

10 

RAND 

25 

DIM B(2) 

15 

CLEAR 

30 

FOR C = 1 TO 2 
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40 LET A(C) = INT 
(7*RND) + 1 
50 NEXT 1 C 
60 FOR J = 1 TO 11 
70 PRINT "WHERE IS 

PIKSY - ATTEMPT ";) 
80 FOR C = 1 TO 2 
90 INPUT B(C) 

100 NEXT C 

110 PRINT B(1);" ";B(2); 

120 IF A(1) = B(1) AND A(2) 
= B(2) THEN GOTO 
200 

130 IF A(1) = B(1) AND 

NOT A(2) = B(2) THEN 
GOTO 235 

140 IF NOT A(1) = B(1) 

AND A(2) = B(2) THEN 
GOTO 250 
150 PRINT " NO" 

160 IF 10*RND < J THEN 
GOSUB 260 

170 IF J = 4 OR J = 7 
THEN CLS 
175 NEXT J 

180 PRINT "TIME IS UP. 
PIKSY WAS AT 
";A(1)";A(2) 

190 GOTO 305 
200 CLS 

225 PRINT AT 10,0;"YAY 
(graphic A) 

CAPTURED" 


230 GOTO 305 
235 PRINT A(1); " IS 
RIGHT" 

240 GOTO 170 
250 PRINT A(2); " IS 
RIGHT" 

255 GOTO 170 
260 LET G = INT (5*RND) 
270 IF G = 0 THEN PRINT 
"HINT: LOCATIONS 
ADD UP TO"; A(1) + 
A(2) 

280 IF G = 1 THEN PRINT, 
"HINT: DIFERENCE 
BETWEEN LOCATIONS 
IS ";ABS(A(1) - A(2)) 
290 IF G >= 2 THEN 
GOTO 320 
300 RETURN 
310 STOP 

320 PRINT "I WAS AT:" 

A(1);" ";A(2) ; " NOW" 
330 PRINT "I AM 
MOVING" 

340 PRINT "PRESS ANY 
KEY" 

350 PAUSE 40000 

360 CLS 

370 GOTO 10 


Have a look at line 280. The function ABS stands for 
"absolute". If a number is positive, the absolute value of that 
number is just the number. If a number is negative, the absolute 
value is the number multiplied by —1 (i.e., the number without 
its negative sign). If you leave out ABS in line 280, the clue will 
be so specific it will almost certainly give the location away, so 
ABS makes for a better game. 

The next program locates a number of objects (10) on a grid, 
and gives a score based, of course, on how many you hit. 
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However, if more than one object is at the same location you get 
more than one score. The program also awards you a "rating" at 
the end. 


2 PRINT "ALIENS + 
ASTEROIDS" 

5 LET K = 0 
20 DIM A(10) 

30 DIM B(10) 

40 DIM C(10) 

50 DIM D(10) 

100 FOR J = 1 TO 10 
110 LET A(J) = INT 
(4*RND) + 1 
120 LET B(J) = INT 
(4*RND) + 1 
130 NEXT J 
160 FOR Z = 1 TO 8 
170 PRINT 

CHRj$(RND*10 + 128); 
"SHOT";Z;"graphic 5"; 
180 INPUT C(Z) 

190 INPUT D(Z) 

200 PRINT 

C(Z);" ";D(Z);" 

230 FOR J = 1 TO 8 
240 IF A(J) = C(Z) AND B(J) 
= D(Z) THEN LET K = 
K + 1 

250 IF A(J) = C(Z) AND B(J) 
= D(Z) THEN PRINT 
"HIT inverse space 
SCORE: ";K 


260 IF K = 10 THEN GOTO 
430 

270 NEXT J 
280 NEXT Z 
290 CLS 

310 PRINT AT 2,8; "two 

inverse space one space 
TIME IS UP"; AT 
4,8;"two graphic T YOU 
HIT ";K;" ALIENS two 
graphic Y"; AT 6,8; 
"MARKSMAN 
RATING:";INT 
(100*K/(3*RND + 1.5)); 

AT 8,5; "THEY ARE 
HIDDEN AT.-" 

390 FOR J = 1 TO 10 
400 PRINT, A(J); " ";B(J) 

410 NEXT J 
420 STOP 
430 CLS 

450 PRINT TAB 5 
470 PRINT "eight inverse 
space YOU GOT THEM 
ALL eight inverse space 
eight space YOU GOT 
THEM ALL seven 
space"; 

510 GOTO 470 


The screen display for this game when run is, unfortunately, a 
little cramped. You'll need more than IK for this program. 

You'll notice a randomly generated graphical character 
before the word SHOT each time. These graphics are the inverse 
of the graphics available direct from the keyboard. The number 
of every character is given in the manual, and to print the 
character corresponding to a particular number, you just input 
PRINT CHR$ number of character. The black blob you get on a 
hit is the inverse of the space (character number 128). The same 
character is used at the end if you manage to destroy all the 
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aliens. The “marksman rating" at the end adds a little interest, 
and is actually related to your skill in destroying the aliens. The 
more you killed (K) the higher your score. It is divided by 
(3*RND + 1) just to make it a little more interesting. 



Strings and 
Ladders 


The discipline of programming in just IK will stand you in 
good stead when later you add extra memory. It is very easy to 
get into the habit of programming sloppily, inefficiently or 
inelegantly when you have memory to spare. One way of 
making the most of your IK is to use variables, assigned at the 
start of the program, for constants which you intend to use at 
various parts of the program. It turns out that if any constant is 
used MORE THAN THREE TIMES in a program then a 
considerable amount of memory is saved by assigning it to a 
variable instead. The following game SNAKES AND LADDERS 
shows these techniques in use. 


1 

LET P = 1 

80 

PRINT "TO START 

2 

LET Q = P + P 


GAME"; 

10 

DIM CMQ,P + P + Q) 

90 

DIM A(Q) 

20 

PRINT “SNAKES AND 

100 

FOR Z = P TO Q 


LADDERS“;TAB P 

110 

PRINT "PRESS 

30 

FOR Z = P TO Q 


NEWLINE 

40 

PRINT 

120 

INPUT MS 


“PLAYER“;Z;TAB P 

130 

CLS 

50 

INPUT CS(Z) 

135 

PAUSE 200*RND 

60 

NEXT Z 

140 

LET MS = "SNAKE 

70 

CLS 
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150 LET E = SCN 
(RND — .4)*INT 
(6*RND + P) 

160 IF E >= P THEN LET 
MS "LADDER " 

170 LET A(Z) = A(Z) + E 
180 PRINT CS(Z);"-"; 

M$;"WORTH ";E;TAB 
7;"SCORE IS 
";A(Z);TAB P;TAB P-P 
190 IF A(Z) >= 20 THEN 
GOTO 230 

200 PRINT "FOR NEXT 
MOVE space"; 


210 NEXT Z 
220 GOTO 100 
230 PRINT "inverse 

space";CS(Z);" WINS 

BY ■ . V 

A(Z) — A(P + Q — Z); 

"POINTS", "ANOTHER 

GAME?" 

240 INPUT M$ 

250 IF M$ = "YES" THEN 
GOTO 70 

260 PRINT "OK. BYE" 


Notice the delay in line 135. This is randomly anything 
between nothing and about four seconds. 

Look at line 140 to 160. These determine whether a player will 
get a SNAKE (and a negative score) or a LADDER (and a positive 
score). Ti uses the function SGN which we haven't met before. 
SGN gives an answer of one if the number after it is positive, or 
minus one if the number after it is negative. Since RND — .4 will 
be positive about 60% of the time, each player has slightly more 
chance of getting a ladder than a snake. If line 150 had read LET 
E = SGN (RND — .5)*INT(6*RND + P) there would be a pretty 
good chance the game would never end, since each player's 
gains would approximately equal their losses, and the players 
would lose interest very quickly. 

The next game is based on exactly the same ideas as SNAKES 
AND LADDERS but takes longer to play, and - because it has 
more variables - is considerably more interesting. 

We are going to introduce a new and very useful trick here, 
called SLICING. Suppose we had a string called AS containing 
"ABCDEFGHIJ", and in our program we wrote A$4 TO 8). (TO is 
the keyword on key 4). This would mean the.segment of AS from 
the 4th character to trie 8th - in this case "DEFGH". We can also 
SLICE single characters - AS(9) is just a short way of writing AS(9 
TO 9). Remember you can't have an array called AS and a string 
called AS both at the same time, so the ZX81 doesn't get 
confused about what we mean by AS(9). You don't have to use 
variables either - you could just as well write "ABCDEFGH IJ"(9) 
which would mean the 9th character of "ABCDEFGHIJ", or "I". 
The number in brackets can be a variable -"ABCDEFGHIJ"(N) 
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will be different depending on the value of N. If N is one it will 
mean "A", if N is five it will mean "E", and so on. We shall use 
SLICING, in conjunction with a new function CODE in this next 
program, ROADRACE - see if you can work out what lines 180 
and 200 are doing. 


1 LET P = 1 

2 LET Q = P + P 

10 PRINT "ROADRACE" 
20 DIM A(Q) 

30 DIM A$(Q,P + P + Q) 
40 RAND 

50 FOR Z = P TO Q 
60 PRINT "DRIVER ";Z 
70 INPUT ARZ) 

80 NEXT Z 
90 LET A(P) = 390 
100 LET A(Q) = A(P) 

110 PRINT "PRESS 
NEWLINE" 

120 INPUT M$ 

130 CLS 

140 FOR Z = P TO Q 
150 PRINT AHZ) 

155 PAUSE 100 
160 LET C = INT 

(11 *RND)— Q — Q 


170 IF C < P THEN LET 
C = P 

180 LET A(Z) = A(Z) + 24 

— CODE "N graphic 5 ) 
£< graphic 1 "(C) 

190 IF A(Z)< P THEN 
GOTO 230 
200 PRINT "ALL OK 
SMASH COPS- 
PUNCTUREPETROL- 
OIL"(CODE "graphic 1 
graphic E $);3"(C) TO 
CODE "graphic T £(/25" 
(C));" ";A(Z);"space 
MILES TO GO";TAB P 
210 NEXT Z 
220 GOTO 110 
230 PRINT " WINS BY 
";40*(A(P + Q — Z) 

— A(Z));"POINTS" 


SLICING is used in line 180 to find the number of points to be 
subtracted. If C is one then the SLICE will be "N", and so the 
CODE is CODE "N", or 51. The score you get is then 24 — 51 or 
— 27. It is negative because the score is the number of miles 
LEFT TO GO. If C were two the SLICE would be "graphic 5" and 
the score would be 24 —CODE "graphic 5" which happens to be 
19, ie you go BACK 19 miles. SLICING is used very efficiently in 
line 200. Suppose C were equal to 4. The first SLICE would be 
"graphic 1 graphic E $);3"(4), which means ")". The CODE of ")" 
is 17. The second SLICE is "graphic T £(/25"(4) which is and 
CODE of "I" is 24. You can find all of characters' CODEs PRINT 
"ALL OK SMASH COPSPUNCTUREPETROLOIL"(1-7 TO 24), 
which means the segment between the 17th and 24th characters, 
or "PUNCTURE". See if you can work out what would happen if 
C were 5. (Hint: the CODE of is 25 and the CODE of "2" is 30). 
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In this game, as in SNAKES AND LADDERS, there is a slightly 
better than even chance of getting an ALL OK (and a positive 
mileage). See if you can find the line in the listing that ensures 
this. 

Comparing line 135 in SNAKES AND LADDERS with line 155 
in ROADRACE is instructive. In the first program, the delay is 
random (and varies from a delay of practically zero when RND 
is small to a much longer period when RND is large). In 
ROADRACE, the delay is set (purely arbitrarily at 100). There is 
no reason why you can't set the delay in either program to zero 
(delete the PAUSE statement, but leave in the CLS) or any 
number you like, or — if you prefer the unexpected — at a 
random number. Do not set the random limit too high (like, say, 
PAUSE 50000*RND because you run the risk of (a) losing interest 
in the game if the delay is close to 5000 time and again; and (b) 
you may think you've just got a long delay when, in fact, your 
ZX81 has gone into an infinite loop for some reason (this is likely 
if you've either made a mistake when inputting the program, or 
with some ZX81's, the computer has become very hot). 

The next game — 52 BLUFF — uses a different string idea. 
Here we have assigned all the most commonly used phrases to 
strings at the start of the program, in the same way that we did 
with variables in the previous programs.In this game the ZX81 
deals two cards. If you think the next card to be dealt will lie 
between the first two, you place a bet of your choice. This game 
is more interesting than some computer betting games like 
FRUIT MACHINE because you can decide on the likelihood of a 
win and adjust your bet accordingly. You can even decide not to 
bet at all. 


10 LET S = 30 
20 LET AS = " " 

30 LET F$ = "CARD 1: " 
40 LET GS = "CARD 2: " 
50 LET HS = "CARD 3: " 
60 LET A = 


100 PRINT F$;A$; 
110 LET Z = A 
120 GOSUB 460 
130 PRINT 


INT(13*RND) + 1 
70 LET B = 


140 PRINT G$;A$; 
150 LET Z = B 
160 GOSUB 460 


170 PRINT "WAGER?" 


INT(13*RND) + 1 
80 IF B = A THEN GOTO 


180 INPUT C 
190 CLS 


70 

90 PRINT "two graphic 5 


STAKE: £";S;"two 
graphic 8" 


200 IF C = 0 THEN PRINT 
"COWARD" 

210 PRINT A,B 


page 56 



220 LET D = 

INT(13*RND) + 1 
230 IF D = A OR D = B 
THEN GOTO 220 
240 PRINT 
250 PRINT H$;A$; 

260 LET Z = D 
270 GOSUB 460 
280 IF A < D AND D < B 
THEN GOSUB 360 
290 IF A > D AND D > B 
THEN GOSUB 360 
300 IF D > B AND D > A 
THEN GOSUB 410 
310 IF D < B AND D < A 
THEN COSUB 410 
320 IF S < 1 THEN GOTO 
440 

330 INPUT K$ 

340 CLS 
350 GOTO 60 
360 LET S = S + 2*C 
370 IF S >199 THEN PRINT 
"YOU HAVE BROKEN 
THE BANK" 


380 IF S >199 THEN STOP 
390 IF C < > 0 THEN PRINT 
"YOU WIN £";2*C 
400 RETURN 
410 LET S = S — C 
420 IF C < > 0 THEN 
PRINT "YOU LOSE 
£";C 

430 RETURN 

440 PRINT /'inverse space 
YOU ARE BROKE" 

450 STOP 

460 IF Z >1 AND Z < 

= 10 THEN PRINT "A" 
470 IF Z = 1 THEN PRINT 

"A" 

480 IF Z = 11 THEN PRINT 
"J K" 

490 IF Z = 12 THEN PRINT 
"QN" 

500 IF Z = 13 THEN PRINT 
"KG" 

510 RETURN 
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Hot 

Sauce 


You will recall that earlier in this book there was program in 
which the ZX81 thought of a number, then gave you hints to 
help you guess it. You probably realised that if you started with 
50 as your first guess, it was pretty easy to narrow down the 
number by going to either 25 or 75 on the second guess. This 
method allowed you to get the correct number fairly easily. 
Here is another program which appears somewhat similar. But it 
is far harder to work out a system to beat it. 


10 

PRINT "HOT SAUCE" 

160 

IF S = 13 THEN GOTO 

20 

PRINT "(C) HARTNELL 


420 


1980" 

170 

PRINT "WHAT 

30 

PRINT 


NUMBER AM 1 

40 

PRINT "WHATS YOUR 


THINKING OF?" 


NAME, PARDNER?" 

180 

INPUT A 

50 

INPUT AS 

190 

CLS 

60 

CLS 

200 

IF A = J THEN GOTO 

70 

PRINT 


360 

80 

PRINT 

210 

IF A < J THEN GOTO 

90 

LET S = 0 


300 

100 

PRINT "OK, ";A$;", 1 

220 

IF A - J < 5 THEN 


AM THINKING OF" 


PRINT "BOILING, ";AS 

110 

PRINT "A NUMBER 

230 

IF A - J < 12 AND A 


BETWEEN 1 AND 100" 


- J > 4 THEN PRINT 

120 

PRINT "YOU HAVE 12 


"HOT" 


GUESSES" 

240 

IF A - J < 25 AND A 

130 

LET J = 


- J > 11 THEN PRINT 


INT(99*RND) + 1 


"WARM" 

140 

PRINT 

250 

IF A - J < 45 AND A 

150 

LET S = S + 1 


- J > 24 THEN PRINT 


"COLD" 
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260 IF A - J > 44 THEN 
PRINT "FREEZING, 
BABY" 

270 PRINT 
280 PRINT /'NEXT 
GUESS?" 

290 GOTO 150 
300 IF J - A < 5 THEN 
PRINT "VERY, VERY 
CLOSE" 

310 IF J - A < 12 AND J 

- A > 4 THEN PRINT 
"PRETTY CLOSE" 

320 IF J - A < 25 AND J 

- A > 11 THEN PRINT 
"JUST SO-SO" 

330 IF J - A < 45 AND J 

- A > 24 THEN PRINT 
"PRETTY HOPELESS" 


340 IF J - A > 44 THEN 
PRINT 

"PATHETIC, ";A£ 

350 GOTO 280 
360 PRINT "YOU WERE 
RIGHT, ";A$ 

370 PRINT "I WAS 
THINKING OF ";J 
380 PRINT "SO YOU GET 
ANOTHER CO" 

390 LET S = 0 
400 GOTO 130 
410 CLS 

420 PRINT "SORRY, ";AS; 
", YOU DIDNT GUESS 
IT" 

430 PRINT 

440 PRINT "I WAS THINK 
OF ";J 


The term "absolute" (ABS on the keyboard) was introduced 
just after the listing for PESKY PIKSY. Refer back to this if you're 
not sure what ABS does. The HOT SAUCE program could be 
written quite differently from the above, by using the ABS. In 
the listing here, the ZX81's response to your guess is determined 
by whether the number you guess is higher or lower than the one 
it is thinking of, and by the difference between the numbers. If 
you rewrite HOT SAUCE using ABS, you'll find that only the 
difference between the numbers will determine the comment 
("PATHETIC" or "BOILING" or whatever) the ZX81 will make. 
And just as HOT SAUCE is more difficult to play than GUESS 
MY NUMBER, HOT SAUCE with ABS is harder than without it. 
As an exercise, write a HOT SAUCE program using ABS. You 
should find it uses less memory than the above listing. You could 
also program the ZX81 to make much longer comments on your 
guesses. 
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your VDU 


We have used the RND function time and time again in 
programs. It is one of the most useful features for games. But, as 
I pointed out earlier, the random number generated is not really 
a random number at all, but is one of a very, very long list of 
numbers, so long that the number appears to be random. The 
use of the RAND function (on the T key) sets the starting point of 
the long, long list of numbers to a number related to the number 
of times your TV screen has been scanned since the ZX81 was 
turned on. This next program reads the number of frames time 
and time again, each time a little later than before, and uses this 
number to generate a random number which, in turn, is used to 
instruct the ZX81 to print a specific "character". 

You'll find in your manual a list of characters and their 
corresponding codes. 

If you told your computer to print CHR§ 12 you would find it 
would print the pound sign (£). CHR$ means the character whose 
code follows. A simple program to fill the screen with randomly 
generated characters, and their corresponding codes, is as 
follows: 

10 LET K = 63*RND 30 GOTO 10 

20 PRINT "CODE NO. ";K; 

" IS ";CHRS K 

You will notice that K is not INTed before the character is 
printed. This is because it doesn't need to be - CHR$ will 
automatically round a number up or down to the nearest 
integer, so CHRS 42.4 is the same thing as CHR$ 42, and CHR$ 
6.9 is the same thing as CHRJ 7. In effect it will add 0.5 and then 
I NT it so that CHRS 55.5 is the same as CHRS 56, not CEIRJ 55. By 
letting K 63*RND we are allowing for anything from 
character zero (space) to character 63 (Z). The inverse characters 
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have codes 0 to 10 and 128 to 138. You can fill the screen with 
these by running the following little program: 

10 LET K = 10*RND 30 PRINT CHR$ K; 

20 IF RND < .5 THEN LET 40 GOTO 10 
K = K + 128 

By combining, more or less, the preceding program with the 
RAND function, we can develop an interesting program. Try the 
following: 


10 FOR J = 1 TO 20 STEP 
2 

20 PRINT AT J,J; 

30 NEXT J 

40 PRINT "IF YOU PRESS 
NEWLINE I WILL" 

50 PRINT "CREATE A 
CARPET DESIGN FOR 
YOU" 

60 INPUT AS 

70 CLS 

80 LET G = 3*RND 

90 PRINT "CODE NAME 
FOR DESIGN:- 
inverse quote"; 

100 FOR H = 1 TO 5 + G 


110 LET D = RND*22 
120 PRINT CHR$(D + 166); 
130 NEXT H 

140 PRINT "inverse quote" 
150 PRINT 

160 FOR J = 1 TO 48 
170 RAND 

180 LET Z = RND*10 
190 PRINT CHRSfZ + 128); 
200 NEXT J 

210 FOR J = 1 TO 45 + G 
220 LET Z = RND*10 
230 PRINT CHRSZ; 

240 NEXT J 
250 GOTO 160 


There are several things we can learn from this program. Lines 
10 to 30 simply print the title ten times, which makes a more 
interesting start than just having the title printed once near the 
top of the screen. Line 80 sets G equal to a random number in 
the range 0 to 3. The value of G is used in lines 100 and 210. Lines 
90to 140create a name for the design, by printing the characters 
(all inverse letters) whose codes are generated by line 120. The 
naming part of the program is followed by two FOR/NEXT loops, 
linked by a final GOTO statement. The RAND is within the first 
FOR/NEXT loop. 

Once you've run this program a few times, rewrite it by adding 
a further FOR/NEXT loop (with the FOR in line 155, and the 
NEXT in place of 250) to stop the program before it crashes 
because the screen is full, and to allow you to have another go 
without having to go back into command mode first. Set the 
limit of this last loop so as to get the maximum amount of 
"carpet" on the screen. Experiment with the size of the other 
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two loops, and with the maximum value of G and see what this 
does to the final display. 

If your machine can work in SLOW mode try deleting the 
FOR/NEXT loop you've just put in and insert these lines instead. 


155 LET X = 31 

165 LET X = X + 1 

166 IF X < 32 THEN GOTO 
170 

167 LET X = 0 

168 SCROLL 


215 LET X = X + 1 

216 IF X < 32 THEN GOTO 

220 

217 LET X = 0 

218 SCROLL 
250 GOTO 160 




First Steps 
Towards 
the Stars 


Most computer systems in the world, micro to mainframe, 
have at least one space war-type game in their library. The 
limited memory on the basic ZX81 precludes all but the simplest 
versions of this old favourite. However, study of the following 
program will teach you some of the fundamentals of star games, 
and will give you a core to build on when you buy extra K for 
your machine. 
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1 LET P = 1 

2 LET Q = P + P 
10 LET R = 310 

20 PRINT "TIMEWARP"; 
TAB P 

30 PRINT "space 

TREASURE?";TAB P;"2 
ENEMIES?" 

40 INPUT TS 
50 INPUT E$ 

60 INPUT F$ 

70 LET H = Q*Q*Q*Q 
80 LET G = H/Q*Q 
90 GOSUB R 
100 LET L$ = E$ 

110 IF RND < P IQ THEN 
LET L$ = FS 
120 IF G > = P THEN 
GOTO 150 

130 PRINT "YOU ARE 
DEAD" 

140 STOP 

150 PRINT "SHIELD 
";G,"TIME 
";H,"DANGER ";LS 
160 LET H = H - P 
170 GOSUB R 
180 IF H > = P THEN 
GOTO 210 


190 PRINT "TIMEWARP 
HAS IMPLODED", 
"YOU HAVE FAILED" 
200 STOP 

210 IF RND < P/Q THEN 
GOTO 250 

220 LET G = G - P 
230 PRINT "THE ";LS;"GOT 
YOU" 

240 GOTO 90 
250 LET G = G + P 
260 PRINT "YOU KILLED 
THE ";L$, "YOU ARE 
CLOSER TO THE ";TS 
270 GOSUB R 
280 IF RND < .8 THEN 
GOTO 90 
290 PRINT 

"CONGRATULATIONS 
"„"YOU GOT THE 
";TJ, "OUT OF THE 
TIME WARP","WITH 
";H;"TIME UNITS TO 
SPARE" 

300 STOP 
310 PAUSE R IQ 
320 CLS 
330 RETURN 


If this program followed a shorter version of the next program 
we will look at, and if the value of H could be used to print the 
"sector of the galaxy" we were in (i.e. IF H >3 AND H <7 THEN 
PRINT "YOU ARE IN SIRIUS SECTOR") we would be well on the 
way to creating a much better "space game". If you decide to 
add extra K, you could start by modifying this program. To give 
you room to move, multiply each line number by 10. 

In this program, for the first time, we access the ZX81's frame 
counter. This allows us to add a time dimension to programs. 

Input the following program, and run it, keeping in mind that 
your reactions to commands have a time limit to them. If you 
exceed the time, you'll get an ABORT MISSION display. 
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1 PRINT AT 7,11;"BLAST 
OFF " 

2 PRINT AT 9,0;"TO 
START TAKE OFF 
ROUTINE" 

3- PRINT "PRESS ANY 
KEY" 

4 PAUSE 40000 

5 RAND 

6 FOR J = 1 TO 20 

7 LET H = 10*RND 

8 CLS 

9 PAUSE 200*RND 

10 PRINT AT 22*RND,0; 

11 LET A = 0 

12 LET B = A 

13 POKE 16436, A 

14 POKE 16437,A 

15 GOSUB 100 + 10*INT 
(4*RND) 

16 LET A = PEEK 16436 

17 LET B = PEEK 16437 

18 IF J = 20 AND 

65536 —A —256* B <150 
THEN GOTO 200 

19 IF 65536 —A —256*B< 
150 THEN NEXT J 

20 PRINT AT 11,5;"ABORT 
MISSION AT" 

21 PRINT AT 

11,22;65536 — A — 256* B 

22 LET B = B + 1 

23 GOTO 21 

100 PRINT "inverse space 
SET FUEL 

T O"; I NT(200* H * H/- 

^ j_ f-| 

101 INPUT K 

102 IF K = INT 
(200*H*H/3)-H THEN 
RETURN 

103 GOTO 20 

110 LET AS = CHR$ (H + 
38) 


111 PRINT "four graphic 4 
INPUT AIR PRESSURE 
VALVE ";A$ 

112 INPUT BS 

113 IF BS = AS THEN 
RETURN 

114 GOTO 20 

120 PRINT "SIGNAL 
keyword TO ALIEN 
";CHRS 

(168 + J);CHRS(6*H);- 
CHRS 

(166 + 2*H);"WITH shift 
Q";CHRS(H + 48); "sh if t 
Q" 

121 INPUT BS 

122 IF BS = CHRSfH +48) 
THEN RETURN 

123 GOTO 20 

130 PRINT "two graphic T 
GIVE IDENTITY 
NUMBER ";100*H — INT 
(H/3J + J 

131 INPUT K 

132 IF K = 100*H — INT 
(H/3J + J THEN RETURN 

133 GOTO 20 

200 SCROLL 

210 PRINT "two graphic T 
WE HAVE LIFT OFF 
two graphic T" 

220 SCROLL 

230 PRINT "two graphic T 
WE HAVE LIFT OFF 
two graphic T" 

240 SCROLL 

250 PRINT "two graphic T 
WE HAVE LIFT OFF 
two graphic T" 

260 GOTO 200 
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You'll need SLOW to RUN this program as it stands, but you 
can make it run in FAST by ignoring the AT's in lines 20 and 21, 
changing 200 to CLS, and deleting 220 and 240. The program uses 
a number of ideas we've been introduced to recently. Lines 8 
and 9 introduce a random delay after clearing the screen. As you 
run this program you'll see the commands appear at different 
points on the screen. They are placed there by the random 
PRINT AT in line 10. The timer starts with the POKE statements 
(lines 13 and 14) where the count is reset, and the ZX81 then 
keeps counting backwards, frame by frame, from 65536, until 
you get to the PEEK statements (lines 16 and 17) via the 
randomly selected (line 15) subroutine. 

The next program, can be made as heart-stopping as you like. 


1 LET P = 1 

2 LET Q = P + P 

3 LET R = 16436 

4 LET S = 256 

10 PRINT "FRENZY";AT 
Q,P — P;"TO RISK 
SANITY PRESS N/L" 

20 INPUT AS 
30 LET C = 

P + Q + Q + RND*SQR S 
40 CLS 

50 FOR J = P TO G 
60 IF J < >1 THEN PRINT 
"TIME LAST GO ";A 
70 PRINT "TEST NO. 

OUT OF ";INT G, 

"YOU HAVE space 
inverse space"; 

S/Q —J*SQR S;"inverse 
space space NUT 
SECONDS";AT 
11*RND + Q + Q,P-P; 
80 LET F = 

INT(G*Q + J*(P + Q- 
)/Q — SQR S*RND) 

90 POKE R, P - P 
100 POKE R + P, P - P 


110 PRINT "OK DUM DUM 
keyword COPY THIS 
NO",F 

120 INPUT K 

130 LET A = S*S — PEEK 
R — S*PEEK (R + P) 

135 CLS 

140 IF K < > F THEN 
PRINT "YOU CANT 
EVEN keyword COPY 
NOS" 

150 IF A > 340 — J*Q*Q*Q 
THEN PRINT "YOURE 
FAR TOO keyword 
SLOW" 

160 IF K = F AND A < 

340 —J *Q*Q*Q THEN 
NEXT J 

170 PRINT "YOUR SANITY 
RATING IS space 
A*J/Q/Q/Q + Q*Q*- 
Q*RND 
/'AGAIN?" 

180 INPUT AS 

190 IF AS < > "NO" THEN 
GOTO 40 
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The next two programs do not have timers, but could well be 
adapted to have a real time limitation if you like. 


10 PRINT "UNICORNS AND 
GRIFFINS" 

20 LET G = 6 + 

INT(5*RND) 

30 PRINT 

40 PRINT "DEGREE OF 
DIFFICULTY (1 TO 5)?" 

50 INPUT Q 

60 IF Q <1 OR Q >5 THEN 
GOTO 40 

70 PRINT "PRESS NEWLINE 
TO START" 

80 INPUT A? 

90 FOR J = 1 TO G 
110 CLS 

120 PAUSE 200*RND 
160 LET F = 2*G + 3*J/2 
170 LET Z = 

Q*(INT(15*RND) + 10*J) 
180 PRINT AT 

6*RND,0;"UNICORN shift 
Q S NUMBER IS ";F 
190 PRINT "WHAT DOES 
GRIFFIN ADD TO" 

200 PRINT "MAKE UNICORN 
shift Q S NUMBER = 

";Z;"?" 

210 INPUT K 
220 IF K + F = Z THEN 
NEXT J 


230 PRINT 
240 LET T = 

F*INT(100*RND + 2) 

250 IF J = 1 THEN LET 
T = 0 

260 PRINT "SCORE FOR 

THAT ROUND WAS ";T 
270 IF J < > G AND K + F < 
>Z THEN GOSUB 330 
280 IF J = G THEN GOSUB 
360 

290 PRINT "DO YOU WANT 
TO TACKLE THE" 

300 PRINT "UNICORN 
AGAIN?" 

310 INPUT HS 
320 IF HS < > "NO" THEN 
GOTO 20 
325 STOP 

330 IF K -F F < > Z THEN 
PRINT "THE UNICORN 
BEAT YOU" 

340 RETURN 
350 PRINT 

360 PRINT "YOU HAVE 

BEATEN THE UNICORN" 
370 PRINT "YOUR IQ IS "; 

T*J + J 
380 RETURN 
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This program introduces an idea which you can use in many games 
— the "degree of difficulty". Generally, the "degree" can be used 
directly, to multiply or divide something, or to be added to or taken 
away from the limits on a FOR/NEXT loop. In other games, you 
might have to add lines like (if, say A was the degree): IF A = 1 
THEN LET G = 200; or IF A > 7 THEN GOSUB 90. Look back at 
some of the earlier programs in this book, and work out ways of 
modifying them in the light of later things you have learned. 

The "degree of difficulty" can easily be worked into the 
following program. However, as it becomes more and more 
difficult already as it proceeds, it might be better to make it a 
little easier before adding the option of increasing the difficulty. 
Line 280 is the one to modify to make the game simpler, and it is 
here that the "degree' factor can be added. 


10 PRINT,"ECHO 
CHAMBER" 

20 LET Z - 

INT(8*RND) + 1 
30 FOR G = 1 TO Z + 5 
35 CLS 
40 LET D = 

INT(4*RND) + 1 
50 IF D = 1 THEN LET 
AS = "KIDDO" 

60 IF D = 2 THEN LET 
A$ = "SMART ONE" 

70 IF D = 3 THEN LET 
AS = "GENIUS" 

80 IF D = 4 THEN LET 
AS = "COMPUTER 
FREAK" 

90 LET K = RND 
100 PRINT 
110 PRINT 

120 PRINT "TRY NO. ";G; 

" OUT OF ";Z + 5 
130 PRINT 

140 PRINT "THE NUMBER 
YOU HAVE TO" 

150 PRINT "REMEMBER, "; 
AS 

160 PRINT „"IS ";K 
170 PRINT 


180 PRINT "WHEN YOU 
ARE SURE YOU" 

190 PRINT "CAN DO THIS, 
PRESS N/L" 

200 INPUT BS 
210 IF BS < > ""THEN 
STOP 

220 GOSUB 290 
230 PRINT "OK, ";AS; 

", WHAT WAS" 

240 PRINT,"THE 
NUMBER?" 

250 INPUT H 

260 IF H = K THEN GOTO 
320 

270 PRINT "YOU BLEW 
IT ";AS 
280 STOP 
290 CLS 

300 PAUSE 100*G 
310 RETURN 
320 CLS 

330 PRINT "YAY,";AS;", 

YOU GOT IT","RIGHT" 
340 PRINT "WHEN READY 
FOR" 

350 PRINT "NEXT ONE, 
PRESS N/L" 

360 INPUT CS 
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370 IF C$ < > "" THEN 
STOP 

390 IF G = Z + 5 THEN 
GOTO 440 
400 NEXT G 
410 CLS 


440 PRINT 'YOU SURE 
HAVE A 
PRODIGIOUS" 

450 PRINT ,"MEMORY,";A$ 
460 STOP 


In this program, which puts a decimal number in the range 
from nought to one on the screen, and then asks you to 
remember it for a time period which gets longer with each new 
number, note that lines 40 to 80 control what A$ will be in each 
run through the master FOR/NEXT loop. Line 300, as you can 
easily see, determines how long the delay loop will be. By the 
last few shots in a round, the delay seems interminable. Have a 
look at the listing for line 330, noting the comma between the 
words IT and RIGHT. If the comma was not here, the word 
RIGHT would scroll around, half on one line and half on the 
other, when D equals 4. Can you see why? 



Because the TV screen is not memory mapped, genuine 
moving graphics are unfortunately out of the question for the 
ZX81. But you can produce a sort of animated picture as this 
next program shows. Input it as listed, then try and work out a 
version that has two people running in a race, with "moving 
legs". 
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10 LET N = 9 
20 DIM A(N) 

30 FOR Z = 1 TO N 
40 LET A(Z) = 

A(Z) + 2*RND 

50 PRINT AT 2*Z,A(Z);".„ 
graphic R";CHR$ 

(Z + 156);“graphic 6" 


60 IF A(Z) > =24 THEN 
GOTO 90 
70 NEXT Z 
80 GOTO 30 
90 PRINT AT 0,11;"CAR 
";CHR$ 

(Z + 156);"WINS" 


In this program the “movement” comes from the line 50 
which prints three dots before the “car” is printed. If you 
wanted a person with waving arms, a random number could 
determine which "arm subroutine” was printed. The two people 
running a race program could be written by combining the idea 
used in GRAND PRIX for moving the cars across, with a sub¬ 
subroutine to determine the position of the figures' legs. 

If you have more than 1K memory, you could write a GRAND 
PRIX which includes a number of hazards (such as SMASH INTO 
SIDE WALL, OUT OF PETROL, or GEAR BOX BLOWS UP) which 
could either remove a car completely from the race, or simply 
take it out for a while, and then making sure it had to start again. 
Another variation on the above ideas is to let the cars, people or 
whatever move from left to right on the screen, and then move 
back. It should not be too hard for you to work out how this can 
be done. 

In this next game, a fly (heavily disguised as an 'X') has to land 
on a sugar cube (graphic A). You press the keys 5,6,7 or 8 (ie the 
keys with the cursor arrows on them) to move the fly. Notice the 
interesting way in which the ZX81 knows how to move the fly 
(lines 100 to 130). Incidently this program won't run in FAST 
unless you add an extra line at 65 saying PAUSE 20. This 
program gives a pretty good imitation of moving graphics. 


10 LET Y = INT 
(28*RND) + 1 
20 LET X = INT 
(18*RND) + 1 
30 LET T = INT 
(28*RND) + 1 
40 LET S = INT 
(18*RND) + 1 
50 PRINT AT T,S;"X" 

60 PRINT AT Y,X;“graphic 
A” 


70 IF S = X AND T = Y-1 
THEN STOP 
80 LET U = S 
90 LET V = T 
100 IF INKEYS = “5” AND 
S>= 2 THEN LET 
S = S — 1 

110 IF INKEY$ = "6" AND 
T< = 19 THEN LET 
T = T + 1 
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120 IF INKEYS = "7" AND 140 PRINT AT V,U;"space" 

T>=2 THEN LET 150 GOTO 50 

T = T —1 

130 IF INKEY$ = "8" AND 
S< = 29 THEN LET 
*S=S+1 


Let the Games Begin 

Now follows a series of games, all of which will fit within the 
IK supplied with your machine. The games use ideas introduced 
in earlier sections of the book, and are here mainly for playing. 
You will probably learn something by studying the listings, but 
the main "teaching" is now behind you. 
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Did He Who 
Made the 
Make the 


Lamb 

UFO? 


This game, which produces a remarkably attractive display, 
uses a subroutine to "draw" a flying saucer before each shot. 
Each saucer is a little different from the one that precedes it. 
The subroutine to generate the saucer is also used in the 
program LASER ROULETTE. 


10 LET S = 0 
20 LET T = S 
30 CLS 

40 PRINT "seven space 
graphic 3 graphic Q 
graphic W graphic 4" 
50 GOSUB 500 
60 PRINT "nine graphic T 
nine graphic Y","nine 
graphic Y nine graphic 
T" 

70 GOSUB 500 
80 PRINT "four space 
SLAUGHTER*" 

90 PRINT 

100 PRINT T;" OUT OF ";S 
110 PRINT 
120 LET S = S + 1 
130 LET J = INT 
(1 E5*RND) 

140 PRINT "FOR SHIP 
";S,"FIRE TO VECTOR 

";J 


150 POKE 16436,0 
160 POKE 16437,0 
170 INPUT M 
180 IF M = J AND PEEK 

16436 + 256*PEEK 

16437 > 65000 1 0* S 
THEN LET T = T + 1 

190 IF RND < .95 THEN 
GOTO 30 
200 PRINT "YOU 

SLAUGHTERED ";T;" 
SHIPS" 

210 STOP 

500 LET A = INT(11 *RND) 
+ 128*INT(2*RND) 

510 PRINT "three space"; 
520 FOR M = 1 TO 12 
530 PRINTCHRSA; 

540 NEXT M 
550 PRINT 
560 RETURN 
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High Noon 
at the Old 
Intergalactic 


In this game, you have to outdraw a nimble-fingered alien. 
The screen goes blank for a random length of time, then comes 
back, showing the alien (he moves across during the game). You 
must hit NEWLINE as fast as you can. If you do so quickly 
enough the alien dies, falling apart as splendidly as did the 
CHOPPER in an earlier game. Once you've mastered this game, 
change the 65500 in line 130 to 65520, and you'll find you have to 
learn to beat the alien all over again. 


10 PRINT "YOU HAVE 6 
SHOTS keyword TO 
OUTDRAW THE ALIEN 
BEFORE IT DESTROYS 
YOUR three spaces 
BASE" 

20 LET T = 1 
30 LET M = 3*T + 6 
40 PRINT AT 17,M;"/";TAB 
M;"shift H";TAB 
M;"inverse space";TAB 
M;"graphic T graphic 
D" 

50 PAUSE 300*RND 
60 IF INKEYS <>"" 
THEN GOTO 40 
70 PRINT "SHOT ";T 
80 POKE 16436,0 
90 POKE 16437,0 
100 INPUT H$ 

110 LET T = T + 1 
120 CLS 


130 IF PEEK 16436 + 
256*PEEK16437 > 
65500 THEN GOTO 190 
140 IF T < > 6 THEN 
GOTO 170 
150 SAVE "X" 

160 GOTO 200 
170 PRINT "MISSED" 

180 GOTO 30 
190 PRINT "YOU HIT THE 
ALIEN keyword AND 
SAVED THE BASE" 

200 PRINT AT 17,M;"two 
space *";TAB M;"/ 
three space *";TAB 
M;"graphic 7 graphic 
6";TAB M;"two space 
graphic 4 graphic 2 two 
space graphic 1" 

210 IF T < 6 THEN GOTO 
30 
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Line 60 is there to stop the player from cheating by pressing 
newline too early. A PAUSE can be terminated by pressing any 
key, so if line 60 were not there a player could just quickly press 
newline twice — once to end the pause and once to INPUT in 
line 70, but with line 60 in place any attempt to do this will just 
restart the PAUSE all over again. 

A novel feature of this game is line 150, which puts the 
computer into the SAVE mode if you lose. A far more frustrating 
punishment for a loss is to have to computer erase the program. 
Can you work out what line 39 would have to be to make the 
program disappear completely? 



You will recall that, earlier in this book, a program under the 
imaginative name of TIME WARP was listed. The next program 
uses the same basic program to produce something a little more 
down to earth. All of the programs in this book can (and should) 
be developed by you in whatever direction you prefer. Only by 
doing this will you develop your own programming skills. 
Anyway, here is one way TIME WARP can be warped. 


1 

LET P = 1 

80 

LET H = G*Q 

2 

LET Q = P + P 

90 

GOSUB R 

10 

LET R = 310 

100 

LET LS = "CRAZED 

20 

PRINT "CAVE 


WIZARD" 

MASTER" 

110 

IF RND < P/Q THEN 

70 

LET G = Q*Q*Q 


LET L$ = "WICKED 
WITCH" 


- 
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120 IF C > = P THEN 
GOTO 150 
130 PRINT “DEATH 

COMES TO US ALL" 
140 STOP 

150 PRINT CHRS (G + 128); 
“AURA TONE“;G„ 
“LEVEL OF MAGIC-" 
H,"HORRORS ";L$; 
“AHEAD" 

160 LET H = H - P 
170 GOSUB R 
180 IF H > = P THEN 
GOTO 210 

190 PRINT “YOU TOOK 
TOO LONG" 

200 STOP 

210 IF RND < P/Q THEN 
GOTO 250 

220 LET G = G - P 


230 PRINT “THE 

“;L$;"ZONKED YOU" 
240 GOTO 90 
250 LET G = G — P 
260 PRINT "YOU ZAPPED 
THE ";LS,"YOU ARE 
CLOSER TO THE 
FOOLS GOLD" 

270 GOSUB R 
280 IF RND < .8 THEN 
GOTO 90 

290 PRINT "YOU DID IT 
WITH ";H;“ MAGIC 
SPELLS two space 
LEFT" 

300 STOP 
310 PAUSE R/Q 
320 CLS 
330 RETURN 
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Turning 
the Tables 


There are many, many programs in which the computer thinks 
of a number, and the human player has to guess it. There are two 
of them in this book. This next program, written by Trevor 
Sharpies, turns the tables. 


2 PRINT “MYSTIC" 

4 PRINT 

6 PRINT "THINK OF A 
NO BETWEEN 1 AND 
100 AND I WILL GUESS 
IT" 

8 PRINT 

10 PRINT "PRESS N/L TO 
PLAY" 

12 INPUT A$ 

14 GOSUB 86 
16 LET T = 0 
18 LET Z = 100 
20 LET Y = 1 
22 LET X = 

INT(50*RND + RND) + 1 
24 PRINT “I GUESS ";X 
26 PRINT 

30 PRINT“RIGHT (R) OR 
WRONG (W)?" 

32 LET T = T + 1 
34 INPUT A$ 

36 IF AS = "R" THEN 
GOTO 66 
38 GOSUB 86 


40 PRINT 

44 PRINT "HIGHER (H) 
OR LOWER (L)?" 

46 INPUT AS 
48 COSUB 86 
50 IF AS = "L" THEN 
GOTO 62 
52 LET Y = X 
54 LET X = Y + INT 
((Z — Y — 2)*(RND + 
RNDJ/2J + 1 
60 GOTO 24 
62 LET Z = X 
64 GOTO 54 
66 GOSUB 86 
68 PRINT "I GOT IT IN 
JUST ";T;" TRIES" 

72 PRINT 

74 PRINT "ANOTHER 
CAME, BUD?" 

76 INPUT AS 
78 GOSUB 86 
80 IF AS = "YES" THEN 
GOTO 4 
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82 

PRINT "BYE BYE THEN 

// 

86 

PAUSE 200*RND 



88 

CLS 

84 

GOTO 82 

90 

RETURN 



Ching in 
his Armour 


»i ^, pretty trivial P ro § ram - but if you have a copy of the 
I CHING it can be most entertaining. As you can see, a lot of 
the work the ZX81 does in this program is non-essential A 
random number generator could do the job just as well. But it is 
better that the operator do more than just press NEWLINE if 
only to feel that he or she has influence on what is going on. 


1 

PRINT AT 4,11;"l 

20 

FOR D = 1 TO 6 


CHING"; AT 7,4;"WHAT 

IS YOUR FIRST 

NAME?" 

21 

LET C = (CODE 
AS*CODE B$)*RND > 
CODE AS*CODE B$/2 

9 

INPUT A$ 

22 

IF C THEN PRINT 

10 

PRINT AT 10,8;"AND 
LAST?" 


"(graphic 6 inverse 
space graphic 6 inverse 

13 

INPUT BS 


space space" 

16 

CLS 

23 

IF NOT C THEN PRINT 

17 

PRINT "YOUR 

HEXAGRAM FOR 


"inverse space graphic 6 
inverse space graphic 6 

18 

TODAY IS:" 

PRINT 


inverse space graphic 6" 
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24 PRINT 

25 NEXT D 

26 PRINT 

27 PRINT 


ATION" 
30 PRINT 


28 PRINT "SEE THE I 
CHING FOR 


33 PRINT "YOUR LUCKY 
NUMBER IS ";INT 
(CODE AS*CODE 


BS*RND) + 1 


AN","INTERPRET- 

Look at line 21. LET C equal something greater than something 
else. It doesn't really seem to make sense does it? In actual fact 
this is a very very useful trick to know when you want to save 
space. Conditions like greater than, equals, or less than, will 
always be either TRUE or FALSE. The number one means TRUE, 
and the number zero means FALSE. Line 21 says LET C equal 
either 1 (TRUE) or 0 (FALSE) depending on the condition. Lines 21 
to 23 could have been written as: 


23 IF NOT (CODE 

AS*CODE B£)*RND > 
CODE A$*CODE BS/2 
THEN PRINT "etc" 


21 


22 IF (CODE A$*CODE 
BS)*RND > CODE 
A$*CODE BJ/2 THEN 


PRINT "etc" 

as you can see, by making use of the variable C we have saved a 
fair amount of space, and in fact without it the program won't 
fit in IK. 
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In HANGCAT one player inputs a word. Then the second 
player tries to guess the word. If the second player is wrong he 
loses a life (hence the title). If the guess is right, the program 
prints out the correct letter in its correct position in the word. 


10 PRINT "HANCGAT" 

20 PRINT "PLAYER 1 TYPE 
IN A WORD" 

50 INPUT AS 
60 LET GS = " " 

70 FOR Z = 1 TO LEN AS 
80 LET GS = GS + 

90 NEXT Z 
95 LET US = " " 

100 LET T = 9 
110 CLS 

120 PRINT "YOU HAVE 
";T;" LIVES" 

124 PRINT 

125 IF US < > " " THEN 
PRINT "LETTERS USED 
= ";US 

126 PRINT 

130 PRINT "WHAT IS 
YOUR GUESS?" 

140 INPUT XS 

144 CLS 

145 LET US = US + XS 
150 LET F = 0 

160 FOR Z = 1 TO LEN AS 
170 IF XS < > AS(Z) THEN 
GOTO 200 
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180 LET F = 1 
190 LET GS(Z) = XS 
200 NEXT Z 
210 PRINT XS 
215 PRINT 
220 PRINT GS 
230 IF F = 0 THEN PRINT 
"WRONG" 

240 IF F = 1 THEN PRINT 
"RIGHT" 

245 PRINT 

250 IF F = 0 THEN LET T 
= T — 1 

260 IF T >0 AND GS < > 
AS THEN GOTO 120 
270 IF GS < > AS THEN 

PRINT "YOURE DEAD" 
280 IF GS = AS THEN 
PRINT "YAY CAT" 

290 PRINT "THE CORRECT 
WORD WAS",AS 
300 PRINT 

310 PRINT "ANOTHER 
CAT?" 

320 INPUT AS 
330 CLS 

340 IF AS(1) "Y" THEN RUN 



Let the longer games begin 

After a while, you'll discover the IK supplied is a bit 
cramping, and you'll long to stretch your wings and add a byte 
or two. When you do this, you'll discover that many of the good 
habits you've learned when you were restricted to 1 K can desert 
you. It is very easy to set up a long and sloppy set of IF/THE Ns 
which could easily be replaced by an IF/THEN instruction to 
GOSUB. When you have memory to spare, it often seems too 
much trouble to bother cleaning up your programs. Unused 
subroutines clutter up the bottom ends of your programs. 
GOTO statements cover a multitude of situations which arose 
because you did not give sufficient thought to the maximum line 
number you would need. 

If you are going to take up flow-charting, now is the time to 
begin. If you can't be bothered with pretty triangles and things, 
at least discipline yourself to setting out — on paper — whate 
your program is supposed to do, with arrows linking FOR/NEXT 
loops, and lines leading to the first lines of subroutines. If you 
can be bothered, it is worth writing out a full listing for a 
program once you get it working. Examine it in detail, and you re 
sure to find more elegant ways of achieving the same ends. Be 
particularly critical of each and every GOTO command which is 
non-conditional. 

All the programs given so far in this book can act as starter 
ideas for much bigger and better programs when you get extra 
memory. For example, the LUNAR LANDING program is a 
grown up version of the IK LUNAR LANDER and LABYRINTH is 
a much-expanded version of TIMEWARP and CAVE-MASTER. 

The best thing you can add to a program with added memory 
is the element of surprise. If you can include situations which do 
not occur every time a game is played, you'll ensure the game 
will remain interesting for a much longer time than would be the 
case if every situation is triggered every time a game is run. 

As you know, many of the games in this book run far too fast 
to be good games without the use of a "delay subroutine' 
However, as you get into longer games (and I mean ones much 
longer than those listed in this section) you'll find that slow- 
running programs and response-times can be boring, especially 
if you have a graphical element in your program, which "moves" 
in some way from go to go. 

Variables which must be assigned at the start of a game can 
actually be listed right at the end of the program, ending with a 
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GOTO leading back to the start ot the game program proper. 
You can have a line like "DO YOU WANT INSTRUCTIONS?" 
near the start of a program, and if the answer is "YES" the 
computer can GOTO the end of the program where the 
instructions are. LABYRINTH, if you wanted it to run more 
quickly, could have the instructions at the very end. However, 
when you add a 16K pack to your ZX81, you'll have very, very 
long programs, and you will not always want to wait while the 
computer searches a vast listing for the subroutine. 

Another way of improving programs, and making them 
interesting to players for a longer time, is to use a feature you've 
seen in some programs, the "degree of difficulty". Make sure 
that this feature really does increase the difficulty of the game. 
Ensure that, even at the highest level of play, the final score (or 
successful landing, or obliterated aliens or whatever) is 
attainable. 

You can add interest to games by awarding points, or scores, 
or ratings or whatever, that are genuinely related to the speed, 
skill or whatever the player demonstrated. A further twist is to 
award a "rank" (like "star fleet captain", "novice" or 
"incompetent fool") to the player, depending on how well he or 
she did. Points and ranks ensure that a player remains interested 
in a game for a longer time, as the player will try to beat his or 
her previous best score or ranking. 

Keeping these features in mind, have a look at the next two 
games, input them and run them, and then try to improve on 
them. 
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Lunar 

Landing 


10 LET M = 0 
20 LET T = 0 
30 LET S = 0 
40 LET H = 5000 
50 PRINT "LUNAR 
LANDING" 

60 LET F = 2000/RND 
70 LET Q = -17 
80 LET B = 1 
90 RAND 
100 PRINT 
110 PRINT 
120 GOTO 300 
130 PRINT "(graphic 5) + 
IS TOWARDS LUNA 
(two graphic 8)" 

140 INPUT Z 

150 IF Z < - 50 OR Z > 50 
THEN GOTO 410 
160 PRINT "FOR HOW 
MANY SECONDS?" 

170 INPUT E 
180 CLS 

190 LET T = T + E 
200 LET S = S + 10 + 

3*E *(Z + 1 )/B 
210 LET F = F - 

3*E*ABS(3*RND*Z) 


220 IF F < 500 THEN PRINT 
"three graphic 5 FUEL 
LOW three graphic 8" 
230 LET H = H - E*S 
240 IF H <20 AND H > -10 
AND S < 12 THEN 
GOTO 460 

250 IF H < -10 THEN 
GOTO 430 

260 IF F < 0 THEN GOTO 
430 

270 LET X = 

INT(10*RND) + 1 
280 IF X = 5 AND M < > 2 
THEN GOSUB 790 
290 PRINT"" 

300 PRINT CHR$(128 + M); 
" HEIGHT ABOVE 
SURFACE: ";H 

310 IF Q <> -17 THEN LET 
Q = Q - 16*RND 
320 IF Q < 0 AND Q > -17 
THEN GOTO 430 
330 IF NOT Q = -17 
THEN PRINT "six 
graphic + OXYGEN 
LEFT";Q 

340 PRINT CHR$(128 + M); 
" VELOCITY: ";S 
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350 IF NOT B = 1 THEN 
PRINT CHR§(128 + 
M);"three graphic 5 
WARNING - THRUST 
ERRATIC” 

360 PRINT CHR&128 + M); 

" FUEL LEFT: ”;F 
370 PRINT CHRK128 + M); 

" FLIGHT TIME: ";T 
380 GOSUB 510 
390 PRINT 
400 GOSUB 550 
410 PRINT "THRUST (-50 
TO +50)?" 

420 GOTO 130 
430 CLS 

440 PRINT "CRASH. HIT 
SURFACE AT ";ABS S 
450 GOTO 440 
460 CLS 

470 PRINT "SUCCESSFUL 
LANDING" 

480 PRINT 

490 PRINT "FINAL 

VELOCITY: ";ABS S; 

500 GOTO 490 

510 FOR A = 1 TO 64 

520 PRINT CHRS (128 + 

M); 

530 NEXT A 
540 RETURN 
550 PRINT 

560 PRINT "(space graphic 
3 graphic 4)" 

570 FOR Y = 1 TO 2 
580 PRINT "(space)";CHR$ 
(128 + M);CHRS(128 + 
M) 

590 NEXT Y 

600 PRINT "graphic A two 
graphic 5 graphicA" 
610 PRINT "graphic A two 
graphic 5 graphic A" 
620 PRINT 


630 FOR G = 1 TO 2 
640 LET K = INT(10*RND) 
650 IF K = 0 THEN LET W£ 

660 IF K = 1 THEN LET W£ 

_ / / // 

670 IF K = 2 THEN LET W$ 
680 IF K = 3 THEN LET W$ 

690 IF K = 4 THEN LET W$ 

_ // .. 

700 IF K = 5 THEN LET W$ 

710 IF K = 6 THEN LET W$ 

720 IF K = 7 THEN LET W$ 

730 IF K = 8 THEN LET W$ 

740 IF K = 9 THEN LET W$ 

750 PRINT ,W$ 

760 NEXT G 
770 PRINT 
780 RETURN 
790 CLS 

800 LET M = M + 1 

810 RAND 

820 FOR V = 1 TO 7 

830 PRINT 

840 NEXT V 

850 LET U = 

INT(50000*RND) 

860 FOR V = 1 TO 6 
870 PRINT "HOUSTON, 

WE HAVE A 
PROBLEM..." 

880 PRINT CHRS (127 + 
RND*(11) + 1);" 

DANGER ";CHR$ 

(127 + RND*(11) + 1) 

890 NEXT V 
900 PRINT 
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910 PRINT 

“MALFUNCTION. USE 
COMPUTER" 

920 PRINT "ACCESS 
CODE ";U;“ FOR 
DETAILS" 

930 INPUT V 
940 CLS 

950 IF U < >V THEN GOTO 
430 

960 LET V = INT(2*RND) 
970 IF V = 0 THEN GOSUB 
1030 

980 IF V = 1 THEN 
GOSUB 1070 
990 PRINT "N/L TO 

RETURN TO FLIGHT" 


1000 INPUT VS 
1010 CLS 
1020 RETURN 
1030 LET Q = 100 + 
19*RND 

1040 PRINT “OXYGEN 

METER UNRELIABLE" 
1050 PRINT "(graphic A 23 
times)" 

1060 RETURN 
1070 LET B = B + 
INT(3*RND) + 1 
1080 PRINT “THRUST 

CONTROL ERRATIC" 
1090 PRINT "twenty two 
graphic 6" 

1100 RETURN 



Labyrinth 


10 

GOSUB 1000 

40 

LET X = 0 

50 

LET S = 30 

60 

LET W = 1 

70 

PRINT "inverse space 
YOU ARE AT THE 


START OF A" 

80 

PRINT "inverse space 
LABYRINTH OF MANY 
TWISTING," 


90 PRINT "inverse space 
TURNING TUNNELS. 
YOU HAVE" 

100 PRINT " inverse space 
A SACK HOLDING 30 
PIECES OF" 

110 PRINT "inverse space 
SILVER. YOU MUST 
GET TO" 
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120 PRINT “inverse space 
THE END OF THE 
LABYRINTH WITH AT" 
130 PRINT "inverse space 
LEAST 20 TO PAY THE 
MINOTAUR" 

150 PRINT AT 20,18;"PRESS 
NEWLINE" 

160 INPUT AS 
170 RAND 

180 IF A$ < > " " THEN 
STOP 

190 GOSUB 1000 
200 IF W < 1 THEN LET W 
= 1 

210 PRINT "inverse space 
THIS IS MAZE/ 
TUNNEL" 

230 IF W = 10 THEN 
GOTO 1070 

240 PRINT "inverse space 
NUMBER ";W; 

" OF THE LABYRINTH" 
260 PRINT "inverse space 
(10 IS THE END)" 

270 PRINT 
280 LET X = X + 1 
290 PRINT "inverse space 
THIS IS CHALLENGE 
NUMBER ";X 

300 IF S < 1 THEN LET S = 
5 

320 PRINT "inverse space 
YOU HAVE ";S; 

" SILVER PIECES" 

330 LET K = 

INT(5*RND) + 1 
340 PRINT 

350 PRINT "inverse space 
FACING YOU NOW 
ARE ";K;" DOORS" 

360 PRINT "inverse space 
WHICH ONE WILL 
YOU TRY?" 


370 INPUT A 
380 GOSUB 1000 
390 IF RND < .1 THEN 
GOSUB 690 

400 IF A OK THEN GOSUB 
420 

410 IF A = K THEN 
GOSUB 690 

420 LET K = INT(4*RND) 
430 IF K = 0 THEN LET E£ 
= "RODENTING RAT" 
440 IF K = 1 THEN LET E$ 
= "WART-FACED 
WOGGLE" 

450 IF K = 2 THEN LET E£ 
= "ELLIPSOID 
OCTOPUS" 

460 IF K = 3 THEN LET E£ 
= "WACK ED-OUT 
WIZARD" 

470 PRINT "inverse space 
FOOL, YOUVE 
WALKED IN ON" 

480 LET E = INT(4*RND) 
490 IF E = 0 THEN LET F$ 
= "FLAMING BRAND" 
500 IF E = 1 THEN LET FS 
= "SHINING SWORD" 
510 IF E = 2 THEN LET F£ 
= "POISONED 
NEEDLE" 

520 IF E = 3 THEN LET F£ 
= "COSUB-MACHINE- 
CUN" 

530 PRINT "inverse space 
";ES;" ARMED" 

540 PRINT "inverse space 
WITH A ";FS 
550 PRINT 

560 PRINT "inverse space 
WHICH WEAPON DO 
YOU CHOOSE?" 
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580 PRINT "inverse space A 
FLOATING POINT 
ROM (1)," 

600 PRINT "inverse space A 
FOR/NEXT LOOP (2)," 
620 PRINT "inverse space 
OR A POKED 
ADDRESS (3)?" 

630 INPUT B 
640 LET C = 

INT(3*RND) + 1 
650 GOSUB 1000 
660 IF B = C THEN 
GOSUB 1170 

670 IF B < > C THEN GOSUB 
1240 

680 GOTO 140 
690 LET K = INT(4*RND) 
700 IF K = 0 THEN GOSUB 
760 

710 IF K = 1 THEN 
GOSUB 810 
720 IF K = 2 THEN 
GOSUB 850 
730 IF K = 3 THEN 
GOSUB 900 
740 GOTO 150 
760 PRINT "inverse space 
YOUVE FALLEN 
THROUGH" 

770 PRINT " inverse space 
A TRAPDOOR ..." 

780 LET W = W - 1 
790 LET S = S - 
INT(2*RND) —1 
800 RETURN 

810 PRINT "inverse space A 
WALL OF FLAME 
ENGULFS YOU" 

820 LET W = W - 1 
830 LET S = S — 
INT(2*RNDJ —1 
840 RETURN 


850 PRINT "inverse space 
THE LOVELY PRINCESS 
SEMOLINA" 

860 PRINT "inverse space 
SOOTHES YOUR 
FEVERED BROW" 

870 LET S = S + 
INT(5*RND) + 1 
880 LET W = W + 
INT(3*RND) + 1 
890 RETURN 
900 PRINT "inverse space 
JOY OH JOY. A 
HOARD OF" 

910 PRINT "inverse space 
SILVER. CHOOSE UP 
TO 5 PIECES" 

920 PRINT "inverse space 
BUT BE WARNED. THE 
MORE" 

930 PRINT "inverse space 
YOU TAKE, THE MORE 
IT WILL" 

940 PRINT "inverse space 
COST YOU. HOW 
MANY?" 

950 INPUT D 
960 LET S = S + D 
970 LET W = W - 
INT(D/2) 

980 RETURN 
1000 CLS 

1010 PRINT "ten inverse 
space graphic E nine 
graphic 7 graphic R 
twenty-one inverse 
space graphic 5 
LABYRINTH graphic 8 
twenty-one inverse 
space graphic W nine 
graphic 6 graphic Q 
eleven inverse space" 
1020 FOR Z = 1 TO 19 
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1030 PRINT "thirty two 
inverse space" 

1040 NEXT Z 
1045 PRINT AT 3,0 
1050 RETURN 
1070 PRINT "inverse space 
YOU ARE AT THE 
END" 

1080 PRINT "inverse space 
DO YOU HAVE 
ENOUGH SILVER?" 
1090 PRINT "inverse space 
PRESS NEWLINE TO 
FIND OUT" 

1100 INPUT C$ 

1110 IF S < 20 THEN PRINT 
"inverse space THE 
MINOTAUR HAS 
EATEN YOU" 

1120 IF S < 20 THEN GOTO 
1110 

1130 IF S >19 THEN PRINT 
"inverse space YES, 
YOU HAVE ";S; " 
SILVER" 

1140 IF S >19 THEN PRINT 
"inverse space PIECES. 
YOU HAVE WON", 
1150 IF S > 19 THEN GOTO 
1130 
1160 STOP 


1170 PRINT "inverse space 
YOU BEAT THE ";E$ 
1180 LET S = S + 
INT(3*RND) + 1 
1190 PRINT "inverse space 
AND HAVE ";S; " 
SILVER PIECES" 

1200 LET W = W + 
INT(4*RND) + 1 
1210 PRINT 

1220 PRINT "inverse space 
YOU ARE 
APPROACHING 
SECTOR ";W 
1230 RETURN 
1240 PRINT "inverse space 
THE ";ES; " BEAT 
YOU," 

1250 LET S = S - 
INT(4*RND) —1 
1260 PRINT "inverse space 
LEFT YOU WITH ";S;" 
SILVER" 

1270 LET W = W - 1 
1280 IF W < 1 THEN LET W 
= 1 

1290 PRINT "inverse space 
AND SENT YOU BACK 
TO ";W 
1300 RETURN 
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ZX81 

Teacher 


The ZX81 is an effective game-player. Writing and running 
programs on the computer enhances programming skills. 
However, the ZX81 can also be used in a direct role as a teaching 
aid. Its main use is in the field of quizzes. While the ZX81 can 
only select from a list of non-numerical questions, the computer 
can easily be programmed to create its own numerical 
questions. 

Another use in teaching is for the ZX81 to create lists and 
tables. We will look at this use first. 


PRINT AT 

12 

PRINT X "A;" = " 

2,8;"MULTI PLICATION 


;A*J 

TABLES" 

13 

NEXT J 

PRINT AT 6,2;"WHICH 

14 

PRINT AT 14,0;"DO 

TIMES TABLE WOULD 


YOU WANT ANOTHER 

YOU","LIKE ME TO 


CO?" 

PRINT?" 

17 

INPUT AS 

INPUT A 

18 

CLS 

CLS 

19 

IF NOT AS = "NO" 

FOR J = 1 TO 12 


THEN GOTO 2 


21 

PRINT AT 21,8; "OK. 
BYE FOR NOW" 


A far more useful table is produced by the following program 
(and the display is a little more imaginative). Again, this program 
is given to suggest ideas for your own programs. 
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10 RANDOMISE 

20 PRINT "(5 spaces)A 
DECREE OF 
CONVERSION" 

30 LET K = 10*RND 

40 FOR S = 1 TO 32 

50 PRINT CHRS(K + 128); 

60 NEXT S 

70 PRINT AT 5,0;"WHAT 
IS THE LOWEST TEMP. 
(F) YOU" 

120 PRINT "WANT TO 
CONVERT?" 

130 INPUT A 

140 PRINT,"AND 
HIGHEST?" 

150 INPUT B 

160 IF B < A THEN LET E = 
A 

170 IF A < B THEN LET F = 
A 

180 IF B < A THEN LET F = 
B 


Degree 
of Conversion 


190 IF A < B THEN LET E = 
B 

200 PRINT "IN WHAT 
DECREE STEPS?" 

210 INPUT Z 

220 CLS 

230 PRINT TAB 

8;"F","C";TAB 24;"K" 
250 LET H = 10*RND 
260 FOR U = 1 TO 21 
270 PRINT CHRS(H + 128); 
280 NEXT U 
290 PRINT 

300 FOR D = F TO E + Z 
STEP Z 

310 LET C = 5*(D — 32)/9 
320 LET K = C + 273 
330 PRINT TAB 8;D,C;TAB 
24, K 

350 NEXT D 
360 STOP 


In all programs, and especially in educational ones, you have 
to try and anticipate any mistakes (deliberate or otherwise) users 
will make when running a program. The lines 160 to 190 cover 
the possibility that a user will input the higher temperature first, 
rather than the lower one which was requested. 
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Sines 



The following table, which prints out numbers and their sines, 
uses a counter to stop execution when the memory is full. You 
can use this idea if the program output is sequential and is likely 
to cause the program to crash by demanding more screen space 
than you have. 


10 PRINT /'SINES" 

20 PRINT 

30 PRINT /'LOWEST 
NUMBER 
40 INPUT A 
50 PRINT A 
60 PRINT/'HIGHEST 
NUMBER 
70 INPUT B 
80 PRINT B 
90 PRINT 

100 PRINT "FOR TABLE 
space 

110 LET L = 0 
120 PRINT "PRESS 
NEWLINE" 

130 INPUT AS 
140 CLS 

150 FOR D = A TO B 


160 LET L = L + 1 
170 IF L >11 THEN GOTO 
240 

180 LET R = D * PI/180 
190 PRINT "SIN";D;" 

IS",SIN R 
200 NEXT D 
210 PRINT 
220 PRINT "END OF 
TABLE" 

230 STOP 
240 PRINT 
250 PRINT "PRESS 
NEWLINE" 

260 INPUT AS 
270 LET L = 1 
280 CLS 
290 GOTO 180 
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Notice how line 180 changed from degress (D) which humans 
are more used to using, to radians (R) which computers (such as 
the ZX81) use. The ZX81 will always calculate in radians, so if 
you want to use degrees you must always convert first by 
multiplying by PI/180. 

I'm sure you will now be able to work out an endless stream of 
numerical quizzes for yourself, your children or your class to 
tackle. Non-numerical quizzes are very useful, but they require 
much more work in programming. Whereas the ZX81 can create 
its own numerical questions, each non-numerical question must 
be specified, and each answer included in full in the program. 



French 

t Vocabulary 


Here is a sample quiz which can be adapted for any subject. 


1 DIMES (10,10) 

2 DIM F$ (10,8) 

3 DIM G$ (8) 

10 GOSUB 250 

20 LET AS = “GIVE THE 


QUESTIONS?" 

80 INPUT N 
90 FOR J = 1 TO N 
100 CLS 
110 LET R = 


70 PRINT "HOW MANY 


FRENCH FOR" 

30 LET B$ = "CORRECT" 
40 LET C$ = 


INT(10*RND)-F 1 
130 PRINT AS;ES(R) 

140 INPUT G$ 

150 IF CS = FSCR) THEN 


"INCORRECT. 


ANSWER IS " 

50 PRINT "FRENCH 


LET A = A + 1 
160 IF CS = FS(R) THEN 


VOCAB1" 
60 LET A = 0 


PRINT BS 
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165 

IF G$ < > F«R) THEN 

265 

LET FS2) = "JEUNE" 


PRINT C$;F£(R) 

270 

LET ES3) = "HERE" 

170 

PRINT "PRESS 

275 

LET FS3) = "ICI" 


NEWLINE" 

280 

LET ES4) = "BETTER" 

175 

INPUT H$ 

285 

LET FS4) = 

180 

CLS 


"MEILLEUR" 

185 

NEXT J 

290 

LET ES5) = "MORE" 

190 

PRINT "OUT OF ";N;" 

295 

LET FS5) = "PLUS" 


QUESTIONS YOU" 

300 

LET E$(6) = "INSIDE" 

200 

PRINT "HAD ";A;" 

305 

LET FS6) = "DEDANS' 


RIGHT,";A*100/N;"- 

310 

LET E$(7) = "HOT" 


PERCENT " 

315 

LET FS7) = "CHAUD" 

210 

PRINT "ANOTHER 

320 

LET ES8) = "FULL" 


GO?" 

325 

LET FS8) = "PLEIN" 

220 

INPUT DS 

330 

LET E$(9) = "SUGAR" 

230 

IF D$ = "YES" THEN 

335 

LET FS9) = "LE 


GOTO 60 


SUCRE" 

240 

STOP 

340 

LET ES10) = 

250 

LET ESI) = "NEXT" 


"EVERYWHERE" 

255 

LET FS1) = 

345 

LET FS10) = 


"PROCHAIN" 


"PARTOUT" 

260 

LET ES2) = "YOUNG" 

347 

RETURN 


Note that there is no mechanism in this program for 
preventing the same question being asked more than once in a 
run. The limit set on the random number in line 110 (that is, the 
number in brackets with RND) is equal to the number of 
different questions in the program. You can get six programs of 
this length onto one side of a C-12 cassette (just), so — with 
programs similar to the one listed above — a 120-word 
vocabulary can be tested with the programs stored on a single 
cassette. If your questions need more than a one word reply, you 
will find (of course) that you can fit far fewer questions into a 
single program before running out of RAM. 

In this program, DIM E£(10,10) ensures that every element of 
E£ is ten characters long, so when, for example in line 250, the 
computer is told LET E5(1) "NEXT" it will actually be assigned 
"NEXT six spaces". Similarly F£ will always be eight characters 
long, so that F£(3) is "ICI five spaces", not "ICI". So we have to 
make sure that the string that the human player inputs is always 
eight characters long, since "ICI" is NOT equal to "ICI five 
spaces" and the correct answer would be counted as wrong! 
This is the purpose of line 3: DIM G$(8). Looks rather strange 
doesn't it — when dimensioning a string we've until now always 
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had at least two numbers in the brackets — one for the no of 
elements, and one for the length of each element (as in ES and 
FS). The effect of DIM GS(8) is to set up a single string (ie not an 
array) called GS, but one which will ALWAYS be eight characters 
long. If in line 140 you input "ABC" GS will be assigned "ABC 
five spaces". If you input "ABCDEFGHIJKLMN" GS will be 
assigned "ABCDEFGH". Thus the comparison in lines 160 and 
165 will be valid ones. 



There was a light-hearted life expectancy program earlier in 
the book. The next program, based loosely on actuarial tables, is 
closer to a "serious" life expectancy program. However, it is 
simplified, and therefore to some degree rendered less accurate. 
It is not really an "educational" program (although it could be 
used within a classroom as a demonstration of the "real" use of 
computers) but this seemed the best place in the book to put it 
This program will not fit within IK. 


1 

LET C = 0 

10 

IF AS = "YES" THEN 

2 

PRINT "LIVES" 


LET A = 76 

3 

LET A = 71 

11 

PRINT "HAVE YOU 

4 

PRINT ,"AGE (YRS)?" 


BEEN RICH" 

5 

INPUT B 

12 

PRINT "MOST OF 

6 

GOSUB 54 


YOUR LIFE?" , 

7 

PRINT /'MARRIED?" 

13 

INPUT CS 

8 

INPUT A$ 

14 

GOSUB 54 

9 

GOSUB 54 

15 

IF CS = "YES" THEN 
LET A = A - 3 
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16 PRINT "ARE YOU 
OVERWEIGHT?" 

17 INPUT DS 

18 GOSUB 54 

19 IF DS = "NO" OR B < 
40 THEN GOTO 24 

20 IF DS = "YES" THEN 
PRINT, "BY HOW 
MANY POUNDS?" 

21 INPUT P 

22 LET C = C + P 

23 GOSUB 54 

24 PRINT "EXERCISE? 
NEVER. SOMETIMES. 
OFTEN" 

25 INPUT ES 

26 GOSUB 54 

27 IF ES = "SOMETIMES" 
THEN LET A = A + 3 

28 IF ES = "OFTEN" 

THEN LET A = A + 5 

29 COSUB 54 

30 PRINT "ARE YOU 
OFTEN TENSE?" 

31 INPUT FS 

32 GOSUB 54 

33 IF FS = "YES" THEN 
LET A = A — 3 

34 if FS = "NO" THEN 
LET A = A + 3 

35 PRINT "DRINK? LITTLE 
(0), MOD.(5)" 


36 PRINT ,"HEAVY(10)" 

37 INPUT G 

38 IF B > A THEN LET A 
= B + (B - A)/2 

39 COSUB 54 

40 PRINT "DO YOU 
SMOKE?" 

41 INPUT HS 

42 IF HS = "YES" THEN 
LET A = A - 5 

43 GOSUB 54 

44 PRINT "OFTEN ILL?" 

45 INPUT KS 

46 IF KS = "YES" THEN 
LET A = A - 3 

47 IF KS = "NO" THEN 
LET A = A + 3 

48 GOSUB 54 

49 PRINT "EST. AGE AT 
DEATH:" 

50 PRINT 

51 PRINT/'FEMALE- ";A 
+ 7 - C/5 - G 

52 PRINT, "MALE— ";A 
- C/5 - G 

53 STOP 

54 CLS 

55 PRINT 

56 PRINT 

57 PRINT 

58 RETURN 
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Useful Subroutines 

Science of Cambridge claim the IK RAM supplied with the 
standard ZX81 is equal to 4K of anybody else's RAM, because 
most commands and statements are stored in a single byte. 
Although it appears that this claim is a little ambitious, the RAM 
can be made to hold a pretty long program and the shortage of 
memory teaches ingenuity in programming. As you'll have 
discovered, Sinclair's dialect of BASIC has no facility for 
READ/DATA. In this section of the book we will look at some 
useful subroutines, some of which have been introduced in the 
programs. I thought it would be handy to have them all together 
in one place. Many of the subroutines were worked out by 
inventive members of the Users Club and have already been 
printed in the club magazine INTERFACE. 

Clive Davies of Cheltenham devised the following subroutine 
to replace the missing READ/DATA function: 

10 LET N = VALZ£( TO 5) 20 LET Z$ = Z$(6 TO ) 

This subroutine supplies five digits of data stored as ZJ. 

An efficient way of making the most of memory in some 
programs is to arrange for subroutine destinations to be 
specified by a multiple of, or a multiple plus an arithmetic 
manipulation of a randomly generated number. That sounds 
more complicated than it is in practice. Look at the following 
program: 


10 LET K = 

INT(4*RND) + 1 
20 GOSUB 10*K + 50 
30 PRINT 

40 PRINT "THIS IS LINE 
40" 

50 STOP 

60 PRINT "SUBROUTINE 
60" 

65 RETURN 


70 PRINT "SUBROUTINE 
70" 

75 RETURN 

80 PRINT "SUBROUTINE 
80" 

85 RETURN 

90 PRINT "SUBROUTINE 

90" 

95 RETURN 


As you can see, line 20 simply manipulates the random 
number generated in line 10 to produce a destination for the 
subroutine jump. The manipulation can be a simple multiple 
(GOSUB 5*J), a multiple plus an addition (as in line 20) or 
subtraction, or a conditional expression plus a manipulation of 
the random number (IF J > 10 THEN GOSUB 10*J + N). 
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The following is a subroutine to renumber lines of a program 
in steps of 10. To alter the step size change line 9997, and alter 
the initial line number change line 9990. Lines 9993 and 9995, are 
necessary because the way the ZX81 stores its programs means 
there might be a character 118 (usually an end of line character) 
in the middle of a line of program, which has to be ignored. For 
example the line LET S = 123 contains 118 which doesn't show 
in the listing. 

9989 KET X = 16508 

9990 LET L = 10 

9991 POKE X + 1JNT (L/256) 

9992 POKE X + 2,L —256*INT 
(L/256) 

9993 LET X = X + 4 

9994 LET X = X + 1 

9995 IF PEEK X = 126 THEN 
LET X = X + 6 

Sometimes programs can be made to look neater by removing 
the numerical message at the bottom of the screen which 
indicates a STOP command, or end or program. This routine, 
devised by Toni Baker, will achieve this provided the routine is 
placed at very end of a program. 

FAST 

LET L = USR 681 

Obviously you do not need the instruction FAST if you're 
already in FAST mode. 

Joe Fitzpatrick, a users club member from Dublin suggests a 
subroutine which stops a program crashing when the screen is 
full. He included it in a program which displays each address 
and the character stored in it. His program essentially consists of 
printing the characters whose values are the variable A in the 
expression A = PEEK(B) where B is a number in the range 16424 
to 17424. The subroutine to temporarily halt the program when 
the screen is full is: 

30 IF PEEK (16442) < 3 
THEN GOSUB 100 


100 PRINT 
110 PRINT "PRESS 
NEWLINE TO 
CONTINUE" 


120 

INPUT AS 

130 

CLS 

140 

IF AS = " 


RETURN 

150 

STOP 


9996 IF PEEK X < > 118 
THEN GOTO 9994 

9997 LET L = L + 10 

9998 IF 256*PEEK 
(X + 1)+PEEK 

(X + 2) = 9989 THEN 
STOP 

9999 GOTO 9991 
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The use of the quote marks in line 140 ensures that the ZX81 
will RETURN only if just NEWLINE is pressed. 

Pressing any other key before NEWLINE will cause the 
program to STOP. 

Users' club member Jeremy Ruston contributed a single line 
which tells you how many bytes (that is, how much memory) the 
current program takes up. Just input: 9999 PRINT PEEK 16396 + 
256*PEEK 16397-16562. If you then input RUN 9999 you'll find 
the screen will clear and a number will appear in the top left- 
hand corner of the screen, the number of bytes in the program 
which you currently have in the computer. 

If the line is used as a direct command then the constant 
16562 should be replaced by 16509. 
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A Few Facts About the ZX81 


The ZX81 display, which is not memory mapped (so moving 
graphics are out of the question, unfortunately), can be up to 24 
lines of 32 characters each. The computer has its own modulator 
which produces an RF signal which can be connected via the 
lead provided to a TV set. The 1 volt composite video signal 
which feeds the modulator inside the ZX81 can be taken out, via 
a wire, and fed via a buffer circuit to a monitor. 

IK byte, inside the ZX81, is supplied as standard. Extra RAM 
must be added externally via the edge connector at the rear. The 
ZX81 will take a maximum of 16K bytes. The edge connection at 
the rear of the ZX81 has the following: 8 data, 16 address, 13 
control lines from the processor, clock, chip select for internal 
RAM and OV, 5V stabilised and 9 to 11V unstabilised supply 
lines. 

The data and address lines are not buffered, and there are no 
I/O ports. Sinclair has plans to introduce an interface to support 
floppy discs, printer, teletype or I/O bus. There are sockets on 
the rear of the computer for connection to standard cassette 
recorders. Leads are provided with 3.5 mm jack plugs on them. 
The ZX81 loads the whole of the BASIC program into the 
cassette. You cannot load or fetch data on its own. 

Like most BASICS, "Sinclair BASIC" is not compatible with 
other BASICS, although many programs can be adapted to run 
on the ZX81. The computer's BASIC interpreter, character set, 
operating system and monitor are contained in a 8K byte ROM, 
and works in floating point 5 byte arithmetic . Arithmetic 
operators provided are —, +, multiply, divide and raise to the 
power. 

The BASIC instruction set for the ZX81 is as follows: 


COPY 


CLEAR 

CLS 

CONT 


DIM... 


FAST 

FOR... 


Basic Commands and Statements 

Wipes out all current variables 
Clears the screen 

Allows program execution to continue 
without losing variables. 

Copy the screen onto the printer (if 
attached). 

Sets up an array, either numerical or string. 
Any number of dimensions. 

Change to FAST mode. 

Sets up a loop to be terminated by NEXT. 
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GOSUB 


GOTO 
IF THEN... 

INPUT 

LET... 

LIST 

LLIST 

LOAD 

LPRINT 

NEW 

NEXT 

PAUSE 

PLOT 

POKE 

PRINT 

RAND 

REM... 

RETURN 

RUN 

SAVE 

SCROLL 

SLOW 

STOP 

UNPLOT 

ABS 

ACS 

ASN 

ATN 


Shifts control to line number specified, 
but return control when RETURN 
statement reached. 

Shifts control to line number specified. 

IF a conditions is true then carry out 
specified BASIC instruction. 

Allows user to enter data via keyboard. 
Assigns a value to a variable, as in LET X 
= 10 . 

Lists the current program. 

As LIST, but uses the printer instead of the 
TV screen 

Loads a program stored on tape. 

As PRINT, but uses the printer instead of 
the TV screen 

Clears the ZX81 for a new program. 
Terminates a FOR loop. 

Stops computing and displays the screen 
Blacks in a quarter-square on the screen. 
Assigns a new value to a memory location. 
Outputs data to the TV screen. 

Sets random number seed to value of 
frame counter. 

No effect 

Return control to line after the last 
GOSUB used. 

Clears all variables, then shifts control to 
first line of program. 

Stores the current program on tape. 

Moves the display file up by one line. 

Go into SLOW mode. 

Returns control to the user. 

Blanks out a pqarter-square of the screen. 
Basic Functions 
Absolute magnitude. 

Arccosine in radians 
Arcsine in radians 
Arctangent in radians 
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CHRJ 

The character whose code is the number 
specified 

CODE 

The character code of the first character 
of a string. 

COS 

Cosine (radians) 

EXP 

raises e (2.718281829) to the power given 

INKEYS 

the key currently being pressed. 

INT 

the largest integer not greater than given 
number. 

LEN 

the number of characters in a string 

LN 

Logarithm to base e (2.718281829) 

PEEK 

The contents of given memory location 

PI 

The value 3.13159265... 

RND 

A random number between 0 and 

0.99999.... 

SGN 

— 1 if number negative, 1 if number 
positive, 0 if number zero. 

SIN 

Sine (radians) 

SQR 

The positive square root of a number 

STRS 

The string of characters that would appear 
on screen if the number was printed 

TAN 

Tangent (radians) 

USR 

calls the machine code routine at address 
specified. 

VAL 

evaluates the contents of a string (must 
contain a numerical expression) 
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The ZX-81 computer from Sinclair Research, Ltd., is 
an excitins new breakthroush in personal computing. 
About the size of this book, it uses yoOr television set 
for display and any cassette recorder to save pro¬ 
grams. Though it can be used for games, for home rec¬ 
ordkeeping, and for business functions, it is not “for” 
any of these uses. Because it is the least expensive, 
most complete, and most powerful computer of its 
size on the market, it is an ideal “first computer,” to 
introduce adults and children to the world of com¬ 
puting. 

Making the Most of Your ZX-81 is a brand new book, 
following in the footsteps of Tim Hartnell’s highly suc¬ 
cessful book Making the Most of Your ZX-80, and has 
been completely rewritten to focus on the new im¬ 
proved features of the ZX-81. It includes a number of 
games and useful routines, but also shows you how to 
write programs and how to use features of the ma¬ 
chine in those programs. Making the Most of Your ZX- 
81 gives you the listings of over 60 programs, including 
some useful programs for home and classroom applica¬ 
tions. You’ll find this to be an invaluable resource for 
your ZX-81 computer! 

Other books from Reston on the ZX-81 computer: 

The ZX-81 Pocket Book by Trevor Toms 
49 Explosive Games for Your ZX-81 by Tim Hartnell 
Mastering Machine Code on Your ZX-81 by Toni 
Baker 

Information about ZX-81 can be obtained from the Na¬ 
tional ZX Users Group, 599 Adamsdale Rd., N. 
Attleboro, Mass. 02760. 
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